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The  aesign  of  a COBOL  editor  and  interpreter  is  explored 
which  uses  simple*  straightforward  alaorithms  similar  to  the 
aoproach  found  in  programmable  calculators.  The 
algorithms  are  desioned  to  he  implemented  using  the 
microinstructions  of  a h i oh-per f ormance  bit-slice 
mi c rocrocessor . A possible  machine  aesign  usina  3 family  of 
m i c r 00 rogr ammab 1 e f ou r-b 1 t -s 1 i C e hioolar  circuits  is 
out  1 i red . 


Table  of  Contents 


1 . Int  roauct  ion b 

IT.  Software a 

A.  The  Editor  - - COED 0 

fc> . The  Interpreter  --  COIN 10 

III.  Target  Machine 17 

A.  Am £9 00  Family.  ................................  20 

1.  Am2901 20 

2.  Am2Q09  3nd  Am2911 .....20 

3.  Additional  Circuits ..21 

0.  Machine  Design 20 

C.  AMDASM/P0 2P 

D.  I i mi  no  Analysis 30 

IV.  Recommendations ...33 

Appendix  A.  Sample  Terminal  Session .3h 

Appendix  P.  Grammar  Pules  in  8MF  for  MJCRO-CObCL ....... 3P 

Appendix  C.  C0FD  User's  Manusl SI 

Appendix  D.  C0TN  User's  vanua 1 ......................... &o 

Source  Listing  --  COEC .PI 

Source  Listina  --  COIf 93 

List  of  heferences 110 

Initial  Distribution  List Ill 


9 


I.  INTRODUCTION 


The  objective  of  this  thesis  was  to  investigate 
t^e  feasibility  of  a specia'wed  fricrocrnnouter:  a "COBOL 
calculator."  This  COBOL  calculator  woula  interpret  onlv 
LOdOL  programs  ano  was  to  be  desianea  using  simole 
algorithms#  similar  to  a programmable  calculator,  which 
would  be  imelementec  in  microcode  on  a h i ah -re r f o r«anc e 
mi c roorocessor . 

CDdOL  was  chosen  as  the  source  language  oecause  it 
is  used  throuannut  the  *'avy  and  the  business  worla.  The 
version  of  COBOL  usea  tor  this  machine  is  1 0 Pu-COBOL # which 
was  develored  by  LT  A . S . Craig  during  the  course  ot  his 
thesis  work  at  the  Mava1  Postgraduate  School  (see  Reference 
11.  MTCRO-CDdOL  is  an  extension  of  the  U.S.  Navv  defined 
Hvpo-COBUL#  which  represents  the  minimum  acceptable  workina 
Subset  of  COBOL  within  the  Mavy. 

The  use  of  a cure  interpreter  to  execute  COBOL 


programs  can  be  considered  feasible  since  COBOL  is  heavily 
I/O  dependent.  Thus  the  time  reaui red  to  interpret  the 
source  code  is  small  in  comparison  to  the  I/O  delays. 


The 

preliminary  spec  i 

f i cat i on  of 

the 

machine 

hardware  was 

comp  1 e t ed  using 

the  Advanced 

N i c ro 

Devices 

Am^QuO  family  of  m i c rop roa r amab 1 e h i gh -oe r f o rrarc e circuits. 
This  family  is  centered  around  a bipolar,  f our-h i t -s 1 i ce 
microprocessor  1ST  chip.  Figure  7 contains  a svstem  design 


■ 


using  this  ♦am i 1 y of  circuits.  Tn  addition#  the  use  of  a 
highly  flexible  "meta-assembler,"  which  simplifies  the 
designers*  task  of  creating  m i c ro i ns t rue t i ons # is 
i nt  roduced. 

Ihe  last  maior  goal  was  the  design  of  tne 
algorithms  to  oe  used  to  interpret  COttOL  in  the  macnine 
microcode.  This  was  aecomolished  using  the  lanauage  C# 
which  is  available  on  the  UNIY  oc*ratino  system  at  the  Naval 
Postgraduate  School.  The  software  wnich  was  implemented 
includes  a workina  editor  and  interpreter.  The  design  of  the 
editor  and  the  interpreter  stressed  simplicity  rather  than 
efficiency.  Concepts  such  as  reolacino  pointers  with  a 
linear  search#  AgCIT  character  arithmetic#  and  storage  of 
variable  values  within  the  source  ceoe  were  used.  These 
algorithms  must  now  oe  converted  to  microcode  and  run  on  a 
development  system  to  determine  if  the  execution  times  are 
fast  enough  to  make  the  COBOL  calculator  concept 
operationally  feasible. 
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II.  SOFTrtAKF 


The  COdOL  machine  Described  here  consists  of  the 
following  software  modules:  a monitor,  an  editor,  a pure 
interpreter,  and  a debuoqer.  Of  these,  the  editor  ana  the 
interpreter  were  desianed  and  implemented  as  part  of  this 
thesis.  Both  the  editor  ano  the  interpreter  were  written  in 
the>  systems  prooramming  lanauage  ’C’  and  were  comoiled  and 
tested  on  the  UNI*  operatina  system.  The  s^elef on  monitor, 
which  was  necessary  for  testing  purposes,  nas  not  Been 
included.  The  aecugoer  will  be  briefly  described  as  a simple 
extension  of  the  interpreter. 

The  editor  and  the  interpreter  were  oesionea  for 
simplest  implementation.  In  qeneral,  each  module  consists  of 
a string  of  subroutines  which  are  as  independent  as 
possible.  The  objective  was  to  develop  simple, 
straiaht  forward,  linear  prooram  modules  that  would  edit  and 
interpret  CORGL  ana  be  short  enough  to  be  stored  in  Read 
Only  ^emory  la0w). 
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A.  THt  EDIT GR--COEO 


The  editor  is  the  user's  means  of  communi cat i na 
with  the  COBOL  machine.  Aside  from  accepting  COBOL  pronrams 
line-by-line  from  the  console  and  providing  the  stanoard 
edit  functions*  the  eaitor  performs  some  functions  normally 
performed  by  an  interoreter/compi I er.  These  functions 
include  creatinq  and  maintaining  a symbol  table  and 
replacing  the  COBOL  source  words  in  the  Drocedure  division 
with  toicen  numbers.  This  greatly  simolies  the 
interoretat ion  ohase  ana  does  not  create  a substantial 
overnead  during  editing. 

rthen  invoked*  the  editor  either  creates  a new 
file*  or  opens  an  already  e»i st i no  file  bv  load i no  it  into 
memory  from  a random  access  aevice.  each  CO'UJI.  statement  to 
be  entered  into  this  file  must  beoin  with  a five  character 
line  index.  The  first  character  o*  this  inaex  denenas  uoon 
the  division  of  tne  COBOL  prooram  which  is  beinq  euitted 
(see  APPENDIX  C ) . 

The  Identification  and  Environment  divisions  are 
stored  as  tney  are  entered  from  the  user's  console  in  lower 
case  ASCII  code  (extension  to  allow  uoper  case  will  oe 
discussed  later)  with  trie  UNTX  newline  character  (CK)  heina 
replaced  with  a special  'FuL'  character  for  ease  of 
ae  t ec  t i on . 

The  Data  division  is  also  stored  in  lower  case 
ASCTI  code.  Whenever  an  identifier  is  declared*  however,  an 
entry  is  made  in  tne  symbol  tab’e.  The  symool  table  is 

o 


simply  a list  of  orintnames,  each  a maximum  of  16  characters 


Iona.  The  crintnares  of  a> I COBOL  reserved  woras  are  entries 
in  the  symbol  table.  For  a completed  COBOL  program,  there 
exists  a one-to-one  cor resoonaence  oetween  COBOL  reserved 


words,  acceptable  punctuation,  all  orogram  identifiers, 
literals  and  symool  table  entries.  The  relative  adaress  of  a 
printname  within  the  symbol  table  is  the  entry's  token 
number,  allowinc  simple  conversion  between  token  numpers  and 


pr  i ntnames . 


The  Procedure  division  is  converted  entirely  to 
toxen  numbers  bv  the  editor  exceot  tor  the  five  character 
line  number  that  must  prece«*a  ev«ry  COBOL  statement.  ill 


identifiers  must  he  declared  in  the  data  division,  ana, 
aside  from  comments,  only  reserved  woras  ana  literals  are 
alloweu  in  the  Procedure  division.  Thus,  any  unaeclared 
identifiers,  or  tvpinc  and  soel'inq  errors  are  cauoht  here 
in  the  edit  chase  w h » r e they  can  be  easily  corrected.  It  is 
mandatory,  therefore,  to  enter  the  entire  Data  division 
oefore  entering  the  Procedure  division. 


The  editor  operates  in  memory  in  the  followina 
way.  When  invoked,  tne  editor  initializes  two  memory 
pointers,  col  and  cr2  (see  Fioure  1).  Col  is  the  pointer  in 
low  memory  which  always  addresses  tne  last  ovte  accessed. 


This  byte  was  either  rewlv  added,  modified,  or  just  examined 
bv  the  user.  The  c o inter  in  high  memory  is  c o <? , which 
addresses  the  mmaininq  CnbbL  prooram,  if  it  exists,  or  tne 
last  available  byte  in  memory  (see  Fiaure  2).  h'emorv  is  thus 
divided  into  three  areas:  area  T in  low  memory,  area  IT  in 


high  memory,  and  the  wortc  soace  in  the  middle.  Console  input 
characters  are  queued  in  a line  buffer  until  a period  and  a 
carriage  return  character  are  entered.  At  this  time,  the 
entire  line  is  written  into  memory,  beoinninci  with  the  last 
accessed  byte  (the  one  addressed  by  col).  Characters  (bytes) 
are  constantly  being  moved  up  or  down  in  memory  as  necessary 
to  open  the  work  space  at  the  point  in  user's  COBCL  program 
where  editino  is  tan i no  place  (see  Ciaure  3).  The  symbol 
table  is  stored  in  a temporary  data  area  during  toe  edit 
phase . 

Ah en  the  user  terminates  the  edit  phase*  the  work 
soace  is  closed  bv  'ovmq  the  entire  program  down  into  low 
memory.  The  symbol  table  is  then  written  at  the  eno  of  the 
CObOL  prooram,  directly  following  its  end  of  file  (FOF). 

The  edited  CdBCL  program  consists  of 
Identification,  environment,  and  Data  divisions  in  their 
oriainal  source  code,  t h e tosenized  Procedure  division,  and 
the  symool  table.  In  this  form,  it  can  either  oe  stored  on 
some  random  access  device  for  subseouent  interpreting,  or  oe 
interpreted  cirectlv  fo' lonino  the  termination  of  edit. 


Figure  1. 


Figure  2. 


Initially,  all  of  memory  CPI  is  the  byte  offset  of 

is  viewed  as  work  space.  the  last  character  entered 

by  the  user.  CP2  stays  at 
its  initialized  value  until 
the  first  search. 


Figure  3. 

When  the  editor  must  access 
a particular  line,  in  this 
case  A0010,  bytes  are  moved 
between  Area  I and  Area  II 
until  the  line  is  found. 


Identification  and 
Environment  divisions 


beginning  Data  division 


Work  Space 


remaining  Data  division 


Procedure  division 


Symbol  Table 


Figure  4 . 


Memory  as  viewed  by  the  interpreter 
after  storing  a value  into  identifier!. 
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rthen  the  interpreter  is  invoked,  if  the  edited 
CObOL  proaram  does  not  already  exist  in  memory,  it  is  loaded 
one  byte  at  a time  beoinnina  with  relative  address  0.  b'ext, 
the  beainnina  of  the  procedure  division  must  be  located.  As 
the  search  oroceeds,  bytes  are  moved  up  in  memory  start ina 
with  the  last  byte  of  the  symbol  table  until  the  first  line 
number  of  the  Procedure  aivision  has  been  moved.  The  work 
scace  in  the  middle  of  the  memory  array  is  now  defined. 

The  interpreter  then  initializes  all  the 
identifiers  whose  initial  value  has  been  defined  by  the  user 
with  tne  VALdF  option.  Taentifier  values  are  stored  in  the 
Uata  aivision  following  its  PTC  ana/or  VALUP  clause.  Bytes 
are  moved  un  in  memory  until  the  work  snace  heoins  at  the 
eng  of  the  particular  declaration.  Anv  value  not  exceedina 
the  lenath  of  the  work  soace  can  Be  scored  nere.  All 
identifier  values  are  stored  in  tne  Data  division  in  this 
manner.  The  interpreter  writes  the  desired  value  into  tne 
work  snace,  thereby  making  it  a Dart  of  the  Data  division 
(see  Fioure  41. 

A proaram  counter  is  initialized  to  the  relative 
address  of  the  beginning  of  the  Procedure  division.  This 
counter  is  incremerireo  byte  by  byte  as  tne  division  is 
scanned  for  grammatical  correctness.  Fach  comolete  COBOL 
statement  is  executed  as  it  is  scanned. 

The  first  bvte  after  each  line  number  is  the  token 
for  a keyword  that  determines  the  tyoe  of  COBOL  statement 


I 

which  follows.  Rased  upon  this  token,  the  interpreter  calls 
a subroutine  to  handle  the  statement  torn.  The  subroutine 
scans  the  statement  (token  chain)  for  accept i b i 1 i t y until 
the  '£0L'  character,  inserted  by  the  editor,  and  performs 
the  desired  action.  All  embedded  blank,  tao,  and  comma 
tokens  are  accented  bv  the  interpreter. 

If  a arammatical  error  (misplaced  or  unexpected 
token)  is  scanned,  an  error  flag  is  set  that  causes 
execution  to  stop  with  an  appropriate  error  messaae  sent  to 
the  user.  *t  this  coinN  a aebugoer  could  he  enterea.  Since 
all  identifier  values  are  available  in  tne  Data  division  and 
the  current  line  number  is  alwavs  accessible,  an  error  could 
be  corrected  and  scarni no/execution  could  resume  at  the 
statement,  formal  execution  halts  when  the  token  for  STOP  is 
scanned . 

a hen  a jump  is  reaui t»d  to  execute  a particular 
statement,  the  croara m counter  is  reset  to  the  first  token 
of  tne  Procedure  division  and  the  first  toxen  of  each  line 
is  scanned  until  the  resired  destination  is  founo.  Execution 
of  the  PEPF0Kv  verb  involves  a return  jumo  ana  therefore 
requires  the  return  token  to  be  saved.  At  present,  an  eight 
level  software  stack  is  implemented  which  allows  PERFORM 
statements  to  be  nestea  eight  oeeo.  This  could  he  changed, 
however,  since  overall  machine  memory  si?e  is  tha  only 
restriction. 

Each  time  an  identifier  value  is  fetched  or 
stored,  the  following  steos  are  executed: 

1)  The  token  number  is  *aooed  to  its  printname 

lb 


(the  token  number  is  the  index  of  the  orintname  in 
the  symbo 1 table). 

2)  Bytes  are  ■•ove'i  seauentially  up  or  down  in 
memory  between  Area  T ana  Area  II  until  a 
orintname  match  is  found. 

3)  Scan  continues  from  here  until  an  eoual  sion 
or  'EOL'  character. 

4)  The  value  is  then  either  written  from  a 
scratch  buffer  into  the  work  soace  at  this  point 
or  written  from  the  Data  division  into  a scratch 
buffer  for  further  action.  If  a READ  or  ARITt 
statement  is  being  processed*  the  PIC  clause 
determines  the  format  in  which  the  data  value  is 
written.  Otherwise*  it  is  simply  cooied  byte  by 
byte  as  it  acoears  in  the  buffer  or  memory. 

The  arithmetic  routines  operate  upon  the  ASCII 
characters  stored  in  the  Data  division  if  the  operand  is  a 
variable*  or  upon  the  svmbol  table  in  the  case  of  a literal, 
tach  routine  uses  look-up  tables  to  perform  its  operation  of 
addition,  subtraction*  multiplication,  or  division.  The 
operands  are  loaded  into  two  variable  I enoth  buffers*  called 
x and  y*  and  operated  uoon  seouentially  one  pair  of  bytes  at 
a time  beginning  with  the  riahtmost  byte  of  each  buffer.  As 
defined  by  MICNC-CORuL * the  result  is  written  into  the  Uata 
division  area  corresponding  to  the  second  operand.  It  should 
be  noted  that  as  the  LSI  circuits  are  developed*  the  table 
lookup  method  can  easily  be  replaced  by  using  four-bit 
adaer/subtractor  and  multiplier  Chios. 
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T.  THE  TAPGET  MACHINE 


One  major  development  which  makes  a COBOL  machine 
feasible  is  the  wide  availibility  of  hian  performance  bit* 
slice  mi c roorocessors  on  LSI  chips.  A bit-slice  micropro- 
cessor is  a circuit  which  has  all  the  reouired  inputs  and 
outputs  of  a basic  orccessor  function,  such  as  the  ALU,  hut 
is  on) v two  or  four  bits  wipe.  Any  number  of  these  two  or 
four  bit-slices  are  connected  in  carallel  to  allow  process- 
ing of  data  words  of  any  desired  width.  Thus,  the  svstem 
designer  is  able  to  srecify  a processor  which  meets  particu- 
lar reou i rement s . Ihis  fle*iKility  is  hionly  desirable  in 
many  applications  where  the  optimum  wora  size  is  areater 
than  the  common  eiqht  pits  available  on  most  fi*ed  architec- 
tured  mi croorocessors  . 

The  majority  of  bit-slice  mi c roorocessors  achieve 
their  high  performance  usina  bipolar  tecnrolooy.  Tne  commer- 
cial development  of  bipolar  FTL,  ECL,  and  Schottky  bipolar 
DTL  chips  represent  a ma;0r  step  in  increasing  performance, 
bipolar  switching  circuitry  is  ten  to  a nundreo  times  taster 
than  similar  MOS  switchino  circuitry. 

The  disadvantage  of  bipolar  circuitry  is  that  it 
cannot  yet  be  raekeo  as  densely  as  the  MOB  eouivalent,  thus 
requiring  more  cnips  for  a niven  number  of  circuits.  Tn  many 
oit-slice  applications  this  is  not  a sionificant  disadvan- 
tage wnen  compared  with  the  increase  in  soeeo. 
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The  second  rrajor  development  which  effects  the 
COBOL  "ca'ulator"  is  the  introduction  of  hit-slice  micropro- 
cessor families  which  are  m i c roo rog r ammaD 1 e . Microprogram 
logic  is  placed  in  Read  Only  Me»ory  (R0M)  an o replaces  the 
usual  nardware  random  logic  circuits.  The  advantages  are 
found  in  the  more  ordered  approach  to  function  implementa- 
tion and  the  ease  of  reolacino  the  loaic.  The  logic  to  de- 
fine a function  is  stored  in  Programmable  Read-Only  Memory 
l PROM ) as  a clock  o f microinstructions  and,  if  a change  is 
desired,  a new  PRiJM  is  pronrammed  with  different  microin- 
structions. A further  advantaoe  is  rne  ability  to  define  a 
powerful  instruction  set,  called  mac ro i nst rue t i ons  for  an 
architecture  wnere  each  instruction  is  actually  implemented 
with  several  m i c ro i n s t r uc t i ons  . This  increases  the  rerfnr- 
mance  of  the  machine  s i an i f i c an t 1 y since  the  access  time  for 
kOm  is  two  to  ten  times  faster  than  Random  Access  Memory 
iRAM)  where  mac ro i n s t r uc t i ons  are  stored. 

The  most  co-mon  uses  tor  bit-slice  mi c roorogramm- 
ahle  machines  i^cluce  diaital  filters  anu  emulators.  Pit 
slice  processors  are  Particularly  well  sui tea  for  emulation, 
since  a given  mac roi nst ruct i on  can  be  mapped  to  a set  o*  ti- 
C ro i ns t rue t i ons  which  execute  the  desired  function. 

Although  emulation  is  effective,  the  COROL  calcu- 
lator does  not  emulate  a machine  languaae.  Tne  necessary 
logic  to  interpret  a vICRn-C0BUL  program  is  in  microcode  in 
the  PROM.  Bv  imolementinq  the  COBOL  editor  and  interpreter 
in  microcode,  the  machine  Becomes  a COBOL  "calculator"  and 
thus  it  will  only  process  vICRO-C0°uL. 

I ts 


The  interpreter  is 


implemented  in  microcode  to  increase  performance*  ana*  as 
noted  previously*  the  algorithms  were  extremely  simole.  with 
simnle  alaorithms*  balanced  bv  a high  oerformance  processor* 
it  is  possible  to  keeo  the  overall  length  of  the  program 
small  enough  to  write  in  microcode*  while  retaining  a feasi” 


de  execution  time 
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THfc  Am2°00  FAMILY 


The  COBOL  calculator  was  desianea  m i t h i n the  limi- 
tations of  a widely  available  m i c roproar  ammab  1 e four-bit- 
sHce  bipolar  microprocessor  family,  the  Am2900  series, 
developed  oy  Advanced  Micro  Devices  (see  Reference  2). 

1.  Am<2O01 

The  Am2°01  is  four  bit-slice  bipolar  microoroces- 
sor  cnip  which  can  be  easily  cascaded  to  anv  number  of 
chips.  Fiaure  5 is  the  blocV  diagram  of  this  chip.  The  2901 
consists  of  16  workinc  reoisters,  a u register,  shift  multi- 
plexers, and  an  e i gh  t - f unc  t i on  ALII.  It  features  simultaneous 
access  to  any  two  registers#  and  left  ana  right  shift  onera- 
t ions  independent  of  the  ALU.  The  machine  cvc'e  times,  based 
uoon  a two  reqister  ado  function,  is  110  nanoseconds  for  the 
Am^Qol  and  55  nanoseconds  for  the  new  Am2900A. 

2.  Am2°09  and  Am?9!  1 

The  Am290°  is  a four  bit  caseadable  microorogram 
sequencer.  Its  block  diaaram  is  shown  in  Figure  6.  The  2q09 
controls  the  execution  seouence  of  a series  of  m i c ro i nst rue  - 
tions.  The  address  of  the  next  "icroinstruction  to  be  exe- 
cuted can  come  from  the  pronram  counter  register,  the  stack, 
the  internal  address  reaister,  or  a direct  innut . The  latter 
two  sources  allow  for  an  n-wav  branch  at  any  point  in  the 
microprogram.  The  stack  allows  four  levels  of  subroutine 
calls.  The  internal  address  register  (IAR)  can  he  connected 
to  the  Dioeline  reaister  or  the  mapping  PPGM  as  shown  in 
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Figure  7.  The  outout  can  be  set  to  the  first  microword 
l 0 00  0 ) using  the  zero  incut.  Each  output  bit  can  be  "OP'eo" 
for  conditional  instructions. 

The  Am£911  is  similar/  exceot  the  direct  incut  is 
connected  to  the  internal  register  and  the  Oh  inputs  are  re- 
moved . 

3.  Additional  Circuits 

The  A»£°0?  is  a high-speed  loox-ahead  carry  gen- 
erator providing  a look-ahead  carry  tor  up  to  tour  Am^POl 
Chios.  The  Am^QOS  and  Am?90b  are  quad  two-input  open- 
collector  bus  t r an  see i ve r s . Additional  chips  which  are 
available  include  four-hit  reqisters,  counters,  multi- 
plexers, adders,  and  multipliers.  Read-Only  Memory  (KAMI  and 
Hroarammed  Bead-Onlv  vemory  (PRdNi)  are  available  in  several 
sizes  and  access  sceeds.  Chios  wnich  will  soon  become 
available  include  a Direct  wemory  Access.  Reference  2 con- 
tains a detailed  explanation  o*  these  and  other  circuits. 
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Am290 1 

MICROPROCESSOR  SLICE  BLOCK  DIAGRAM 


Figure  5. 
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MACHINE  DFSTGN 


Figure  7 is  a detailed  Mock  diagram  of  the  pro- 
posed COBOL  calculator.  The  machine  is  desianed  around 
several  basic  Mocks:  a 4096  by  2F-b i t microproaram  PPQM  * a 
16-bit  AlU,  an  A-bit  cata  bus*  and  a pipeline  register. 

The  pipeline  reoister  holds  the  next  instruction 
to  be  executed,  while  an  mi c roi nst ruct i on  is  beino  executed* 
the  next  instruction  is  moved  into  the  pipeline  reoister. 
within  one  machine  cycle*  the  sequencer  fields  are  decoded 
ana  the  next  instruction  address  is  available  to  PH PM.  This 
fetch  is  concurrent  w i t h any  A L 1 1 operations. 

The  si of  the  mi c ronrogram  PKOM  was  determined 
by  the  estimated  size  of  the  editor  ana  the  interpreter. 
This  estimate  was  made  by  examining  the  size  of  tne  PPP-lt 
assembly  I anauage  version  of  tKese  software  modules  T30U0 
lines  of  assemply  code  and  tables),  while  the  c c r resoondenc e 
is  not  one-to-one*  any  increase  in  size  due  to  microcoding 
will  be  partially  offset  by  eliminating  routines  and  state- 
ments which  were  inserted  to  permit  execution  under  the  UNIX 
operating  svste". 

The  data  bus  size  was  determined  by  the  nature  of 
the  interpreter.  Only  ASCIT  characters  ana  *-bit  token 
numbers  are  manipulated.  Thus*  only  an  8-bit  data  bus  is 
r equ i red . 

The  ALU  nancies  two  types  of  data.  First,  the  ma- 
jority of  operations  will  involve  characters  and  token 
numbers  of  eioht  hits.  The  second  tvpe  is  memorv  address  da- 


ta#  such  as  the  program  counter.  This  requires  16  bits  for  a 
64K  byte  memory  and  20  oits  for  a one  meqabyte  memory.  Ran- 
dom Access  Memory  of  fc 4K  should  pe  sufficient*  but  if  the 
laroer  memory  is  reauired  another  *m?901  and  Am2°02  can 
easily  be  connected. 

In  the  block  diaqram.  Figure  7 * the  sugoested  LSI 
chins  for  the  major  blocks  are  noted  alona  with  the  number 
required  for  the  function  in  parenthesis.  Table  1 lists  the 
total  circuits  which  are  required  to  implement  the  CORUL 
machine.  The  looic  diaqrams  ana  detailea  description  of 
these  circuits  are  in  Reference  2. 

Thr*»e  blocks  ar»  not  discussed  in  detail:  Direct 
Memory  Access  (HrMAj,  Interrupt  Control  Unit  (Id1)*  and  tne 
Sync  and  Control  Looic.  Sugoested  architecture  "av  be  found 
in  Reference  2 and  a listing  of  the  required  circuits  is  in* 
c 1 uded  in  Table  1 . 

Cne  family  of  blocks  detailed  in  tne  machine  di- 
agram are  the  bus  tranceivers  which  interface  between  the 
various  blocks  and  the  data  ana  address  busses.  These  may  be 
a combination  of  ^mPROo  ana  AmtiQ07  or  Am26S10  chips. 
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Table  1.  LSI  Chips  reaui red  for  the  COBOL  Calculator 


CHIP 

NUVbFK 

D I SCRIPT  ION 

Am2901 

4 

bipolar  4-bit  microprocessor  slice 

Am2902 

1 

look  ahead  carry 

Am2905/fa/7 

12 

ouad  bus  transceiver 

Am2909 

3 

microprooram  seauencer 

Am29  1 6 

l a 

four  oi t regi ster 

Am?97ol 

59 

25h  word  x 9 Dit  PRC'M 

AmQ  140 

128 

909o  word  x 1 bit  static  R / ft  R A K. 

Am25LS07 

1 

f bit  reo i ster 

Am25L3151 

1 

a inrut  multiplexer 

Am25LS l O 1 

1 

binary  hexadecimal  counter 

Interrupt  Control  Unit 

Am291  5 

1 

priority  interruot  exoanaer 

A m?9  1 4 

2 

vectored  priori  tv  interrupt  encoder 

*m297U5 

1 

1o  word  x 9 bit  two-oort  ram 

U i rec  t Memory 

Access 

Am25LS 1 fa  1 

A 

binary  hexaaecimal  counters 

Am25L3259  1 

2 

octal  buffer 

Svnc  and  EnaOl 

e Logic 

Am29750 

1 

32  word  x 8 bit  PROM 

Am?SL3l57 

! 

2 input  multiplexer 

AmS5S 

1 

timer 

A m 7 9L  S 1 12 

1 

dual  f 1 i o-f 1 op 

Am74LS129 

1 

clock 

2 7 


C.  AMDASM  / 80 


The  next  step  in  the  development  of  the  CObOL  cal- 
culator is  to  convert  the  alaorithms  to  microcoae  usino  the 
"meta-assembler"  AMDASV/80.  AM0ASM/80  is  a microprooram  as- 
sembler which  operates  on  the  INTEL  INTELLEC  MOS-OOS  system 
unaer  the  ISIS-II  ooerating  system.  A meta-assembler  differs 
from  a conventional  assembler  in  that  the  user  must  define 
not  only  labels  and  symbols  but  also  word  lenaths  and  for- 
mats. Very  little  information  is  predefined  in  a meta- 
assembler# allowing  the  user  a areat  flexibility  in  matching 
microprograms  to  a hardware  conf iauration.  AMDASK/80  is  suf- 
ficiently general  ana  powerful  to  be  used  for  nearly  any 
m i c roo rogr ammab 1 e machine.  However,  it  was  aesigned  espe- 
cially for  the  Am? 900  family. 

The  assembler  operates  in  two  phases:  the  Defini- 
tion phase  and  the  Assemoly  phase.  The  Definition  phase# 
which  is  executed  first#  establishes  the  tables  to  mar  each 
user  defined  format  and  constant  names  to  the  corresponding 
bit  patterns.  The  lencth  of  each  microinstruction  word  can 
oe  defined  *rom  1 to  12fl  bits.  4 microinstruction  word  mav 
consist  of  one  format#  or  several  overlapping  formats.  A 
format  defines  the  fields  of  a microinstruction  and  their 
usaae.  Fields  may  contain  specified  numeric  bit  Patterns: 
either  hexidecimal#  decimal#  octal#  or  binary.  The  field  may 
also  contain  a variac'e  field  to  be  filled-in  aurino  execu- 
tion, or  a "don’t  care"  field  to  he  ignored#  which  is  usu- 
ally a filler  between  other  fields.  The  "don’t  care"  fields 
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are  used  when  formats  are  overlapped.  That  is/  formats  can 
be  overlapped  if  tne  cefined  fields  of  one  format  correspond 
to  "don't  care"  fields  of  the  other  format. 

The  Assembly  ohase  uses  the  output  Dhase»  and 
operates  similar  to  a more  conventional  assemoler.  This 
phase  reads  a symbolic  orogram,  performs  the  common  assem- 
bler functions  and  croduces  a binary  output/  listings/  and 
tables/  which  are  retained  for  execution  or  post-orocessinq. 

Ihe  Post -orccess i nq  phase  uses  tne  Assembly  ohase 
output  to  create  oarer  taoes  suitable  for  use  in  prcgrammina 
PP0M's.  The  user  mav  ceMne  the  organization  of  the  PPGW  ma- 
trix and  then  create  a taoe  for  any  oarticular  row  or 
column.  This  will  allow  the  user  to  organize  the  micropro- 
gram memory  as  desired.  Further/  it  is  relatively  easy  to 
change  a oarticular  PF0M  by  creating  a new  tap®  for  the 
desired  column  or  row. 

The  advantaces  of  a me t a-assemo 1 e r approach/  such 
as  AmDASP/aq,  are  flexibility  and  ease  of  use.  The  user  may 
define  multiple  formats  with  overlapping  fields  and  link 
meaningful  mneumonics  with  various  hit  Patterns.  Thus/  the 
assembler  creates  the  bit  strinas  for  microinstructions.  The 
user  may  also  write  programs  using  strings  of  l's  and  0's  . 
with  a short  Definition  phase. 
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D.  TIMING  ANALYSIS 


/ Practicality  of  the  Cobol  calculator  decenas  par- 
tially upon  the  tint*  which  is  required  to  execute  a proaram. 
The  actual  firing  of  the  machine  performance  will  occur  when 
it  is  run  in  microcooe  on  the  Intellec  MDS-D0S  system.  how- 
ever, several  important  factors  can  be  assessed  by  us'na 
manual  methods  and  fsti»af mq  the  required  cycles  ana  number 
of  references  to  °anacm  Access  Me-ory  (PA**). 

Table  & contains  a list  of  the  sequential  process- 
ing steps  of  the  * L) r>  verp.  The  sire  of  tne  d«td  ang  pro- 
cedure divisions  are  assumed  to  be  2000  bytes  each,  which 
allows  storage  of  a reasonably  fo"Die«  program.  A hAM  access 
tire  of  300  nanosecones  was  assumed  tor  these  calculations, 
and  any  processino  w n i c K could  be  done  simultaneously  with 
th«  PAm  access  was  not  ineluaed.  The  time  of  1.33b  mil- 
liseconds for  the  fetch,  aad,  anq  store  is  ouite  long.  T ►<  i s 
value  includes  <40^0  access  to  memory,  most  of  wnic1*  were 
used  in  movina  data  division  bytes  through  the  wcruing  area. 
The  time  used  in  moving  tKese  ovtes  represents  !.2lS  mil- 
liseconds or  about  Ql  percent  of  the  total  execution  time. 

Another  example  o*  a large  amount  of  ti-e  spent 
manipulation  data  is  the  i n i » i a 1 i i at i on  nf  the  proaram  in 
memory.  The  inf eroreter,  COIM,  must  f mg  tne  top  of  the 
procedure  division  anc  th»n  locate  the  too  of  the  data  divi- 
sion. For  the  simple  example  proaram  in  Apoenaix  A,  the  in- 
itialization reauires  "00  DAM  accesses  ana  1000  machine  cy- 
cles. Execution  of  this  nroqram  will  require  about  <?F00 
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accesses  to  memorv  anc  5500  machine  cycles.  Thus#  execution 
time  is  about  t.05  milliseconds#  of  which  71  percent  is  ab- 
sorbed in  memorv  access. Anain  this  is  quite  Iona  for  a sim- 
ple proaram. 

It  must  be  remembered  that  these  estimates  are 
very  rouah.  Fstimaticn  errors  will  be  found  in  countino  the 
number  of  machine  cycles  which  corresoono  to  a oiven  line  of 
assemb 1 y code  . 

using  these  estimates  as  a rough  ouiae#  it  is  evi- 
aent  that  the  reference  time  to  sanaom  Access  Memory  is  a 
major  factor  in  the  sreed  of  nroqram  execution.  Due  to  this 
problem#  two  rossiole  changes  to  anv  future  aesign  snoula  be 
considered.  First#  Random  Access  Memory  with  an  access  time 
of  under  200  nanoseconds  should  be  used.  Memorv  with  this 
access  speed  is  available#  although  it  is  more  exoensive 
than  the  slower  0 AM  . This  change  could  imorcve  execution 
time  by  one-fourth.  Tne  second  suqaestion  is  to  aevelop  a 
oipeline  tecnricue  for  bytes  access#  much  like  the  tecnnjaue 
used  in  the  sequencer.  This  could  he  done  in  microcode#  it 
would  consist  of  loaoina  the  next  sequential  byte  ourino  the 
processina  of  a given  byte.  Since  a majority  of  RAM 
accesses  occur  during  a linear  search  of  the  user’s  proaram# 
this  simple  technique  could  cut  the  execution  time  dv  25 
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TABLE  2 


SAMPLE  TIMING  FOR  AN  add  S1ATFMFNT 


TIMt  ACTION 

tllOns  man  token  numper  to  symool  table  entry 
bhOus  search  data  civision  for  a variable  nrintname 
(assuming  1000  character  compares) 


355ns 

fetch 

next 

tCKen  number- 

-does  i t 

eoua 1 ' TO  ' ? 

300ns 

fetch 

next 

tcxen  n Limber 

bfeOus 

search 

data 

civision  for 

second 

variable  printnare 

(assuming  1000  character  compares) 

1.2us  align  decimal  Points**assure  two  zeros 
4.5us  access  ari tmret ic  t ab 1 es--assume  lonoest  ooerana 
has  10  ciaits  * . 4 S u s / d i g i t 
3us  transfer  data  from  buffer  fo  memory  a cpl 


1.33b  ms/add 


I.  rtFCOMMfcMDM  IONS 


This  thesis  represents  only  the  first  half  of  the 
i mp 1 e*en t a t i on  o*  a COPOL  calculator.  The  next  phase  in- 
cludes the  final  machine  desian  and  conversion  of  the  'C' 

1 anouage  program  modules  tQ  microcode.  AMDASI^/80  would  he  an 
aoproori ate  lanauage. 

The  following  are  items  which  can  ce  considered  if 
an  expansion  of  the  COBOL  calculator  is  desired.  Each  of 
these  items  was  considered  durinq  the  initial  design  of  the 
algorithms;  all  should  be  relatively  s t r a 1 on t f o rwa ro  to  im- 
p 1 emen t . 

First#  the  arithmetic  packaoe  could  be  exnandea  to 
handle  exponent i a 1 s . As  Presently  written,  the  routines  are 
ingependent  o * decimal  Point  position  once  the  location  is 
known.  A routine  to  detect  and  manipulate  the  exponents  can 
be  added  to  Doth  the  multiply  ana  diviae  routines.  For  the 
add/suotract  routine#  the  section  which  alinns  the  decimal 
points  must  oe  exoana»a  to  adiust  the  exponential  values. 

Second#  expansion  to  allow  for  both  upper  and 
lower  case  ASTIT  characters  has  some  value  since  it  would 
improve  readihility.  The  editor#  CUED#  will  presently  allow 
upper  case  characters  anywhere  in  the  Ident i f i cat i on  and  En- 
vironment divisions.  It  the  token  routine  is  modified  to 
detect  upper  case  letters  when  looking  for  a symbol  name  in 
the  i#ata  division#  all  user  defined  symbols  can  contain  ei- 


t*er  upper  or  lower  case  characters..  Tn  the  Procedure  divi- 
sion, however,  ail  reserved  words  must  contain  only  lower 
case  characters  because  they  are  entered  in  the  symbol  table 
in  lower  case.  This  can  be  easily  chanaed  to  upper  case,  or 
a mixture  of  the  two,  bv  chanaing  the  svmbol  table  entries, 
however,  it  may  not  be  not  practical  to  allow  the  user  any 
mixture  of  upoer  and  lower  case  characters  for  the  reserved 
words,  due  to  the  limitea  size  of  the  symbol  table. 

A thira  ite-  of  expansion  could  be  a character 
editing  ability.  This  could  be  accomplished  relatively  easi- 
ly since  the  line  to  be  modified  is  in  trie  line  buffer.  4 
significant  nu«iD“r  of  revisions  to  the  modify  and  inout 
routines  would  he  required,  however,  and  it  -as  not  imple- 
mented at  this  time. 

The  fourth  area  of  i mpmvement  is  the  inclusion  of 
a debug  facility.  Ihis  is  probably  the  most  important  area 
of  improvement.  The  aepug  routine  would  have  the  value  of 
all  declared  variables  available  since  they  remain  with  the 
proqram  until  re i n i t i a I i zed . Thus  if  a fatal  error  occurs 
durina  the  i n t e ror » t a t i on  ohase,  the  error  routine  needs  to 
insure  that  the  subroutine  stact  and  the  program  counter  are 
saved.  The  debuoger  would  use  the  various  search,  match,  and 
find  routines  which  have  already  been  implemented  to  deter- 
mine the  value  of  any  desired  variable.  A restart  could  oe 
easily  accomplished  ov  nassino  the  interpreter's  initialisa- 
tion routine. 

In  conclusion*  the  firs^  nhase  is  complete.  In 
the  course  of  this  thesis,  several  important  concepts  were 
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i mp 1 e*en t eo 


It  was  shown  that  a COBOL 


Calculator  us  inn 


simple  algorithms  to 

interp 

technically 

feasible. 

It  was 

unreso 1 ved 

quest i ons 

as  to 

this  desian 

• 

et  a basic  version  of  COBOL  is 
also  shown  that  there  are  some 
the  ooerational  feasibility  of 
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APPENDIX  A.  SAMPLE  TERMINAL  SESSION 


COEDiCohol  Editor.  Version  1.1 
*Au000  Identification  Division. 

*A0010  Proaram  name.  test. 

*A0O2O  Author. 

Con  1 ev . 

*PoOOO  Environment  Division. 

*P0010  Cent i ourat i on  Section. 

Source  computer. 

PDP-1 1 /SO. 

*B0015  T h i s line  will  he  deleted  later. 
*P0015  d 

*C000O  Data  Division. 

* C o o i o rile  Section. 

*C0020  f c file-in 


data  record  is  tiro-in. 


*C  00  30 

01 

emp- 

i n . 

*C0040 

03 

name-  i n 

p i c 

*(10). 

*C  0050 

03 

n r s-  i n 

P i c 

09. 

* C 0 0 o 0 

03 

r a t e-  i n 

P i c 

°9P . 09  . 

*C  0 o 7 0 

f c 

file 

-out 

data 

'•ecord 

i s emo- 

out. 

* C 0 0 8 0 

01 

e»o- 

out. 

*C  0 090 

03 

name-out 

p i c 

x ( 1 0)  . 

*C0 1 00 

03 

filler 

p i C 

X ( 1 0)  . 

*roi  io 

u3 

pay 

p i C 

Q.Q9. 

*C01  10 

w 

*C01  10 

0^ 

pay 

pic 

Q90.oq. 

*C0  1 20 

03 

f i 1 1 e r 

P i C 

x ( 1 0)  . 

*00130 

03 

total 

P i C 

19,909.90 

*00000  Procedure  division. 

*"0  0010  0 1 0 - m a l n . 

*Do020  read  emp-in. 

*00^30  if  name-in  numeric  do  020-enatest. 
*00035  cerform  0 3 o -o r oc e s s . 

*00040  O^O-endtest. 

*0004*5  stop. 

*00050  030-process. 

*00055  move  name-in  to  name-out. 

*Ot)0t)0  multiply  nrs-in  hy  rate-in. 

*00065  move  r»t**in  to  oav. 

*00070  add  rav  to  total. 

*Do080  write  emc-ou* • 

*00090  030-exi*.  exit. 

* A0030 
*R0020 
*C0  1 40 

*A00(f5  remarks.  This  is  a test  proaram  to 


3o 


calculate  the  pay  of  an  employee 
based  on  his  pay  rate  and  the 
hours  worked. 

*00005  * this  is  an  example  comment* 

which  can  be  inserted  anywhere. 

* AQOOO , F 

A0000  Identification  Division. 

A0010  Prooram  name.  test. 

A0020  Author. 

Conley. 

A0025  remarks.  This  is  a test  orogram  to 
calculate  the  pay  of  an  employee 
based  on  his  nay  rate  ana  the 
hours  worked. 

A0030 

dOuOO  Environment  Division. 

00010  Con f i aurat i on  Section. 

Source  computer. 

PDP-1  1/50. 

80020 

CO000  Data  Division. 

C0010  File  Section. 

C002O  to  f i 1 e - i n 


data  record  l sr  emo-in. 


C0030 

0 1 

emp- 

i n . 

coouo 

03 

n ame - i n 

P ’ c 

x ( 1 0 ) . 

C0050 

03 

h r s-  i n 

P i c 

°9. 

C0060 

u 3 

rate-in 

pic 

09°. °9. 

C0070 

f c 

file 

-out 

data 

record  is 

emo- 

out. 

coo«o 

01 

emp- 

out  . 

C00°0 

03 

name-out 

P i C 

* ( 1 0 ) . 

C0100 

03 

filler 

p i C 

x ( 1 0)  . 

C01  1 0 

03 

oay 

p i c 

99° .09. 

C0120 

03 

filler 

pic 

x ( 1 0 ) . 

C01  30 

03 

total 

P i C 

$9*9Q9.9Q  value  0. 

CO  1 00 

DOQOu  Procedure  Division. 

00QO5  * this  is  an  examole  comment* 

which  can  be  inserted  anywhere. 

D0010  010 -main. 

D0020  read  emo-in. 

D 0 0 3 0 its  name-in  numeric  go  0^0-endtest. 

D0Q35  cerform  030-nrocess. 

uOuao  020-endtest. 

000^5  stop. 

DO05u  030-orocess. 

00o55  move  name-in  to  name-out. 

D 0 0 6 0 multiply  nrs-in  by  rate-in. 

00065  move  rate-in  to  oay. 

D007u  add  cav  to  total. 

000^0  write  emn-out. 

U00°0  030-exit.  exit. 

EOF 
*Ou  i t 
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APPENDIX  b.  GPA^MArt  RULES  IN  RNF  FOP  viCRO-COROL 


1 <ppogpa"’>  = <id-div>  <e*ai  v>  <d-div>  <p-div> 


2 <id-div>  ::=  IDENTIFICATION  DIVISION.  PROGRAM-ID. 


? 

a 

5 

h 

7 

A 

O 

10 

1 1 


<cnmTent>  • <autR>  <date>  <sec> 

<auth>  AUTriOR  . scoTfrent  > . 

! <empfy> 

< <1  a t e > : : = DATE-bPITTEN  . <co'"iTient>  . 

I <e-"pfy> 

<sec>  • t = SECURITY  . <com(T'ent>  . 

! <<?motv> 

<COmmpnP>  ::  = <inout> 

J <co'rn'^Pi*‘ > <inruT> 

<e-div>  ::=  ENVIRONMENT  DTvTSTON  . CONFIGURATION  SECTION. 


< SC  r-cb j > < i -0> 

12  <SPC”Obi>  = SOUcCF“CUMPUTEP  . <roi»man>>  <r!ebua>  . 

0B JEC T-CUMPUTFP  . <co»i»anf  > . 

13  <debua>  = OFBUGGINb  NODF 
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! <emotv> 


1« 

15  <i-o>  :;=  INPUT  -OUTPUT  SECTION  . FILE-CONTWOL  . 

< f i 1 e-ccn t ro 1 - 1 i s t > <ic> 

16  i <entDtv> 

17  < f i 1 e-cont ro 1 - 1 i st > ii-  < f i 1 e-con  r ro  1 -en  t r y > 

! < f i 1 e*con t r o I - 1 i s t > < f i I e-con t ro 1 -en t ry > 

1*3  < f i 1 e-cont  ro  1 -en  t r y > = SELECT  <io>  <a  t t r i bu  t e-  1 i s t > . 

<20  <attribute-list>  ! : - <one  a t t r i b > 

21  ! < a t t r i bu t e- 1 i s t > <one  attrib> 

22  <one-sttrib>  ::  = CRGAMIZATION  <orn-tyoe> 

23  ! ACCESS  <acc-tyoe>  <r?lative> 

2 0 ASSIGN  «inouf> 

25  <ora-tvoe>  = SECuFNTIAL 

26  I PELATIVE 

I he  relative  attribute  is  saved  for  production  19. 

27  <acc-tyre>  = SEGUFNTIAL 

This  is  the  default. 

2«  ! PAfDOt* 

Tt»e  ranrio*  access  mode  needs  to  b*  saved  for  oroduc- 
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t i on  19 


29  <re1ative>  ::=  RELATIVE:  <id> 

30  } <e«'pfy> 

31  <ic>  !!=  I-O-COMTROL  . < same- 1 i s t > 

32  ! <enpty> 

33  <same*l i st > = < s ame-e 1 e^en t > 

3*1  ! <same-lisf>  <same-e  1 emen  t > 

35  <sane~e  1 e^ent  > ::  = Same  <io*strina>  . 

3ft  < i a-st r i nc>  : : - <id> 

37  ! <io-sf rina>  <io> 

3i?  <d-Civ>  ::=  DATA  n IVISlOfM  . < f i 1 e-sec  t i on>  <t»ori<>  <1  inn> 

3°  <fi1e-section>  ! : = FILE  S F C T 1 0 1\  . < f i 1 e - 1 i s t > 

4 0 ! <e*cfy> 

4 1 < fi  1 e - I i s t > <*vle-element> 

4?  ! <H  1e*l  i sf  > < f i 1 e-e  1 enen t > 

43  <files>  ::  = Fn  <ic>  < f i l e-cont ro I > . < pec  o rd-desc  r 1 r>  t i on> 

4*1  < f i 1 e-cont ro  1 > ::=  <tite-list> 

45  ! <efot y > 

: : s < f i 1 e-e 1 emen t > 

4 U 


4ft  < f 1 1 e- 1 i s t > 


47  2 <fi1e~list>  < f i 1 e-e 1 emen t > 

4R  < f i 1 e~e 1 emen t > ::  = BLOC*  <integer>  RECORDS 
4R  ! RECORD  <rec-counf> 

The  record  length  can  be  saved  for  comparison  with  the 
calculated  length  from  the  cicture  clauses. 


50 

! LABEL  RECORDS  STANDARD 

51 

! LAPEL  RECORDS  OMITTED 

52 

! VALUE  OF  <ia-Strino> 

53 

<rec-count  > 

: : - < i n t eoe  r > 

54 

I <inteoer>  TO  <integer> 

55 

<wor<>  : : = 

WORK  TNG -S T Ok  AGE  SECTION  . < record-desc  r i o t i o"> 

56 

• 

• 

<emot  y> 

57 

<1 i n k > : : = 

L INK AGF  SECTION  . < reco r d“de sc r i r t i on> 

5B  J <empty> 

5°  <record-aescricticn>  < l e ve 1 -en t r y > 

oO  ! < reco rd-desc r i c t i on>  < 1 eve  1 *ent rv> 

bl  < 1 e v e 1 *en t r v > ::  = <inteoer>  <data_id>  <redefines> 

<data-tvpe>  . 


b2  <d at  a- i d>  : : = 
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< i 0> 


! FTLLfcP 


ol 

6 A <redef i nes>  :t=  KEDFFTNFS  < i 0 > 

The  redefines  oot ion  aives  new  attributes  to  a previ- 
ously defined  record  area. 
t>5  ! <emotv> 

66  <data-tvoe>  ::  = <rroo-list> 

07  ! <emoty> 

oF  <Drop-list>  ::=  <caf a-e 1 e^ent > 

oP  ! <crop-iisr>  <da t a-e 1 e*en t > 

/0  <da t a-e 1 enen t > ::  = PIC  <input> 

The  <inouf>  at  this  point  is  the  cnaracter  string  that 

aefines  the  record  field. 

71  ! USAGE  CU^P 

The  He'd  is  defined  to  be  a oacsea  numeric  fiela. 

7?  ! HSAGF  OISPt.AY 

The  DTSPLAY  format  is  t*e  default#  and  thus  no  special 

action  occurs. 

7t  1 SIGN  LEADING  <serarate> 

This  production  inaicates  the  presence  of  a sign  in  a 

U2 


1 


numeric  field.  The  sign  Mill  be  in  a leading  oosi~ 

tion.  If  the  <seoarate>  indicator  is  true*  tnen  the 
length  will  be  one  longer  than  the  picture  clause#  and 
the  tvpe  will  be  chanaed. 

7 u ! SIGN  TRAILING  <separate> 

The  same  information  required  dv  production  73  must  oe 

recorded#  but  in  this  case  the  sian  is  trailing  rather 

than  1 ead i no . 

7*5  ! OCCURS  <inteqer> 

The  tvpe  must  oe  set’  to  indicate  multiple  occurrences. 

7b  !SYNC<direction> 


77  ! VALUE  < 1 i tera  1 > 

The  field  oeing  aefined  will  be  assionea  an  initial 
value  determined  by  the  value  of  the  liberal. 


7 fl 

<di rec  t i on> 

::=  lfft 

7Q 

; KIGHT 

SO 

! <emctv> 

81 

<serarate>  : 

:=  SLPARATt 

U3 


8? 


! <eir  p*y> 


83  < I i teral > 

aa 

This  1 


: : = <i npu t > 

! < li  t > 

teral  is  a quoted  string. 


8*5  ! 7ER0 

86  ! SPACF 

87  ! QUO  IE 


8fl  <inteoer>  ::=  <inout> 

86  < i a>  : : = < i nput  > 

90  <p-div>  PROCEDURE  DIVISION  <using>  . 

<oroc-Doav>  END  • 


91 

92 

9 3 

9« 

95 

96 

97 

gp 


<us i na>  : ! = 


<ia*strino> 


<proc~podv> 


<paraaraph> 


uSi*'G  <io-sf  rino> 

<errnt  v> 

::=  <id> 

{ <id-strinn>  <id> 

: :=  <caraaraph> 

} <crnc-bodv>  <raraoraoh> 

::=  <ia>  . <sentence-1  i st> 

i <id>  SECTION  . 

aa 


99  <sentence-l i st > <sentence> 

100  { <sentence-l i st>  <seotence>  . 

101  <sentence>  ::  = < i moerat i ve> 

102  ! <condi t i ona 1 > 

103  ! ENTtP  <id>  <opt-io> 

This  construct  is  not  implemented.  An  EMt  P 
statements  from  another  1 anouaqe  to  inserted  i 

source  code. 

109  <imperative>  ::=  ACCEPT  <suDid> 

105  ! <ar i t hmet i c> 

10b  ! CALL  <1if>  <usino> 


This  is  not  implemented. 


107 

10B 

109 


CLOSE  <id> 

( 

< f i 1 e-ac  t > 

CISPLAV  <|it/id>  <opt-?it/id> 


1 1 0 

1 t l 

112 


EXIT  <orogram-ia> 

CO  < i o> 

CO  <id*strinn>  OEPENOIOb  <id> 

wUVt  <1it-ia>  TO  <subid> 

95 


lloes 

the 


1 1 3 


OPEN  <t yoe-ac t i on>  <io> 


1 1 a 

115  ! PtPF0RM  <id>  <thpu>  <finish> 

1 1 o ' < pead-i d> 

117  ! STOP  <terninat*> 

lid  <condi t i ona 1 > ::=  <arithmetic>  <size-error>  < i »perat  i ve> 

11^  1 <file-act>  <invalid>  < i nnpe  p a t i ve> 

A 6S1  ooepatop  ' s outout  to  comolete  the  bpanch  fpom 

ppoductio"  64. 

1 20  ! IF  <cond i t i on>  <action>  ELSE  <imperative> 

121  1 <p«ao*id>  <special>  < i moe p a t i ve> 

122  < A p i t hme  t i c > :t  = AOQ  <l/io>  <or>t”l/id>  TO  <suoia>  <rouna> 

125  J 0IVI0E  <l/id>  INTO  <subid>  <pouod> 

124  ! MJLTTPIY  <1/iu>  RY  <subid>  <Pound> 

125  ! RURIRACT  <1/iy>  <oot-l/id>  FRO" 

<suoid>  <POund> 


1 2o 

< f i 1 e-ac  t > 

::=  DELETE  <id> 

127 

• 

1 

REbHTTE  <irt> 

12d 

• 

• 

'iRlIF  <id>  < spec  i a 1 -ac  t > 

129 

< c on  d i t i cn> 

::=  <not>  <cono-tvpe> 

4b 


J 3 0 <conr!-fyre>  IJ  = NUMEPIC 
131  ! ALPHARtTIC 

1 3(2  J <eof**pare>  <lit/ia> 

133  <no t > NOT 

NEC 


1 3a 

| <®mntv> 

135 

<COmoare>  !:  = RPFATEP 

1 3o 

: LESS 

137 

i ETuAL 

1 38 

<ROUNO>  ::=  PUUU0EU 

l39 

J <»motv> 

lao 

<term»nate>  = <literal> 

1 a l 

i HUN 

10,E 

<snecial>  = <invalid> 

l ai 

; END 

laa 

<oct“i^>  J!=  <subirt> 

1 a5 

! <e*pfv> 

lab 

<actio«>  ::=  < i mreraf i ve> 

1 a 7 

! NtXT  SENTENCE 

a 7 

1«8  < 1 6 ru> 


THHI.I  <id> 


149  } <ewpty> 

150  <finish>  ::=  <l/id>  TIV£S 

151  ! UNTIL  <condition> 

15E  ! <empty> 

153  < i n v a l i <3  > ::s  T N V A L i D 

154  <size*erpor>  = SIZE  FKRuR 

155  < soec i a I -ac t > Jl=  <nhen>  ADVANCING  <how*ffany> 

1 5 o ! <emotv> 

157  <«*her>>  OFKCWF 

158  ! . AFTEO 

159  <noN*manv>:;!  <int*qer> 

160  i PAGF 

161  < t yp#-ac * i on>  ::=  TnPUT 

1 62  i OUTPUT 

163  i l-u 

164  <suoia>  = <subscr jot> 

165  J < i d> 

16b  <»nt»g»r>  = <input> 


..  ,.,J  — ■■■■'"  -■■■  ■■IWmitP'  W 

167  <id>  : t=  <inout> 

166  <|/id>  :ts  <inout> 

169  5 <subscriot> 

170  ! ZtRO 

171  <subscriet>  : : = <id>  ( <inout>  ) 

176.  <oot-l/id>  <l/id> 

173  ! <eTDt y > 

17a  <nn- 1 i r > : : - < l i * > 

17b  : SP3CF 

17o  ! QUO i E 

177  <literal>  = <nn-1ir> 

176  ! < i nout  > 

179  ; 

180  < 1 i t / i d>  ::=  <i/ia> 

181  ! <nn-lit> 

1*6  <oot”Ht/id>  : ! = <1it/id> 

183  ! <empty> 

184  <crooram-id>  <i a> 


185 


! <e"'Oty> 


APPENDIX  C.  COED  USEP'S  manual 


This  manual  oescribes  the  facilities  of  the  CUPOL 
editor#  COED#  which  is  desianec  to  run  on  the  UNIX  operating 
system  at  NPS.  This  eaitop  is  the  first#  and  mandatory# 
steo  for  wri t i no  a COPGL  orogra*  to  be  executed  ov  COTN#  the 
COBOL  interoreter  which  also  run  on  UNIX  at  wPS. 

The  following  items  aoply  to  orogpa«s  written  us* 

i ng  COED : 

I)  Lower  case  ASCIT  cnaracters  are  usea  excect  for  line 
numbers#  as  noted  oelow. 

El  Each  CUPOL  sentence  must  nave  a unique  line  numoer, 
which  is  entered  by  the  user  usino  the  formats  noted  below.  § 
3)  Periods#  blanks#  tabs#  and  newline  characters  m av  be 
freely  inserted  in  a line  to  improve  readability.  A oeriod 
followed  by  a newline  character,  however,  is  treated  as  an 
ena  of  line  indicator. 

<4l  The  COBOL  sentence  must  be  Less  than  Pbb  characters. 

5)  Each  CUPOL  sentence  must  *nd  with  a period  anu  newline 
character  ’.TC0)'.  Mo  o'  arks  are  allowed  between  these 
characters . 

ol  Lines  may  be  entered  in  any  orger;  th«  editor  places 
them  in  ascending  numeric  order. 

71  Four  line  numbers  must  be  oresent  with  the  followina 
format  : 

A 0 0 0 0 i den t i f i C a t i on  division. 


PI 


bOQOQ  environment  division 


COOOO  data  civision. 

0 0000  procedure  division. 

The  following  items  acply  to  line  numbers: 

1)  A line  number  consists  of  one  of  the  uoper  case  ASCII 
characters  followed  ov  four  digits. 

2)  The  ASCII  alphabetic  characters  have  special  meanings 
within  the  proa  ram . The  character  indicates  the  CO POL  divi- 
sion into  which  the  line  will  be  inserted. 

A X X X X represents  ’■he  IDENTIFICATION  DIVISION 
3 x x X x represents  the  ENVIRONMENT  DIVISION 
CXXXx  represents  the  DATA  DTVISTON 
DXXXx  represents  ’•he  PROCEDURE  DIVISION 

3)  The  four  diaits  indicate  the  cosition  o*  th»  line  within 
the  division. 

fthen  the  editor  is  called  u will  respond  with  an 
asterisk,  it  is  then  readv  to  accept  a new  line.  Ihis 

asterisk  must  always  be  followed  by  a line  number. 


ELEMENT 


ADO  A NErt  LTNF  TO  THE  PROGRAM 


FORMAT  : 

<line  numher>  <COBOL  sentence*  .(CR) 

DESCRIPTION: 


The  editor  wi 

11  f i nd 

f he 

c r ope  r 

1 ocat 

i on 

correspondi ng 

to  the 

1 i ne 

number . 

The  1 

i ne 

number  and  the 

COBOL  sentence 

up  to  the 

EOL 

i n- 

Oicator  are  entered  into  the  memory  area.  IT 
the  sentence  is  in  the  Procedure  division  it  is 
converted  to  token  numbers  before  being  entereo. 
Otherwise,  the  ASCII  characters  are  inserted 
d i r ec  1 1 v . 


examples  : 

A0010  o r og r am- i d . ( CR  ) example. 
COO^O  01  data-in  oic  xtPOT.fCR) 
01900  add  x t0  y.(CR) 


^5 


EL tMtNT : 


ADO  A BLANK  LINE 

FORVAT: 

<line  number>fCp) 

<1ine  number>  .(Lp) 

DFSCR IPTION: 

A clank  line  is  inserted  in  the  proaram.  This  is 
useful  to  inorove  reedibility  end  eav  be  used 
freely.  Note  that  the  first  option  will  result 
in  a cleaner  printing. 

tXAMPLtS: 

A0100.  (CRT 
C00UOCCR) 


ELEMENT 


COMMENT 

FORMAT: 

<1ine  numbeo  * <ASCIT  stfinq>  .(CR) 

DESCRIPTION: 

If  the  line  number  is  followed  by  a sinale  blank 
and  then  an  tne  interpreter  will  lanore  the 

rest  of  the  line  up  to  the  ner i oa-new li ne . Com- 
ments may  De  * ree 1 y inserted  in  any  division  and 
are  always  stored  as  an  ASCTI  strina. 

EXAMPLES : 

D0100  * This  is  a samnle  comment.  It  may  be  a 
maximum  of  256  characters. 


ELtMtNT 


DELETE  A LIME 

FORMAT: 

<line  numher>  afCR) 

description: 

The  line  is  foura  in  the  nrcgra1"  a^ea  ana  all 
characters  or  tok«»n  numbers  are  deleted.  Note 
that  no  blanks  are  aHowed  between  the 
'o'  and  trie  ' ( C R ) 1 . 

EXAMPLES : 

t)0<?00  d(CPl 


ELEMENT 


MODIFY  AN  ULD  LTNF 


FORMAT: 


<line  number>  m(CP) 


DESCRIPTION: 

TRe  editor  will  print  tRe  line  as  written,  tRen 
print  tRe  line  nu»t)er  and  wait  Tor  instructions. 
TRe  'user  has  tnree  options: 

1)  type  <CObOL  sentence>  to  renlace  the  present 
sentence  ending  witR  a ’.(CP)’, 

2)  type  d(CR>  to  delete  the  line, 

S)  type  fCP)  to  leave  me  line  as  written. 

Note  that  no  character  eaitina  capability  is 
av a i 1 ao 1 e . 


EXAMPLES: 

*oooan  m(CR) 

000^0  ada  * to  v . 
*00040  add  ?.  to  y.CCRl 


S7 


r 


1 


ELEMENT  : 

PRINT 

FORMAT: 

<line  number> , <1 i ne  number>  (CR) 

<line  number>rE  (OR) 

<line  numher>,  (CR) 

DESCRIPTION: 

The  first  format  causes  all  lines  to  be  printed 
startina  at  the  first  line  number  ana  continuina 
until  the  secono  line  number  has  been  printed. 

! 

The  second  *ormat  causes  all  lines  to  oe  printed 
start  inn  at  the  t i rst  line  ana  continuina  until 
the  end  of  file  indication. 

The  thina  format  causes  that  line  number  only  to 
oe  printed. 

EXAMPitS: 

A001 O/bOoOO  (CR) 

A OQ 00  » E (CR) 

AOOOO,  (CR) 


L 


ELEMENT 


UU1T  FO I TOR 

FORMAT: 

q(CR) 
qu i t (CR ) 

DESCRIPTION: 

Edit  is  terminated.  The  nroqram  is  written 
low  memorv#  closing  un  the  work  snaee.  TRe 
Col  t ao  1 e is  written  directly  following 
oroorem’s  Ft)F , and  anv  deleted  entries  are 
to  ’MIL*. 


into 
S vm- 
t he 
set 
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APPFNOIX  n.  COTN  USER'S  MANUAL 


This  ira^ua  I describes  the  subset  of  VICHP-CUPUL 
currently  accepted  by  the  COBOL  interpreter#  COIN.  The  fol- 
lowina  conventions  are  used  in  explaining  the  formats: 

11  Elements  enclosed  in  broken  braces  < > are  complete  «n- 
tities  and  are  described  elsewhere  in  the  manual, 
d)  Elements  enclosed  in  stacks  of  braces  { } are  choices# 
one  of  which  must  be  chosen. 

3)  Elements  enclosed  in  brackets  l 1 are  optional. 

4)  All  elements  in  capital  letters  are  reserved  words  and 
must  oe  spelled  exactly  so  that  they  can  be  manpeo  into  the 
correct  tonen  numbers.  fthen  usinc  CUFU  and  COIN  however, 
the  entire  CQPUL  crooram  is  entered  in  lower  case  charac- 
ters. 

User  defined  variables  and  naraaraph  names  are  in- 
dicated as  lower  case.  These  names  are  restricted  to  lb 
characters  in  lenath.  Variable  names  must  beoin  with  an  al- 
phabetic character  and  must  be  declared  in  the  data  divi- 
sion. Paragraph  names  must  begin  with  a numeric  character. 


hu 


ELEMENT 


IDENTIFICATION  riviSION  Format 

FORMAT: 

IDENTIFICATION  DIVISION. 

PRUGRAM-IO.  <comment>. 

[AUTHOR.  <commeot>.l 
[DATE-hPITTEN.  <commemt>.l 
(SECURITY. <eommenf>.] 

DESCRIPTION: 

This  division  provides  information  for 
identification  for  the  reader. 

examples: 

1 den t i f i C a t i on  civision. 
proor am- i d . sample. 


M 


o rog  ram 


ELUENT 


ENVIRONMENT  DIVISION  Format 


FORMAT: 


environment  dtvtston. 
configuration  section. 

ISOURCE-COmPUTER  . <comment>.) 
COtjJECT-COMPUTER.<com'"eot>.1 
IINPUT-OUTPUI  SECTION. 

FILE-CONTROL  . 

<f  i le-conrrol-ertry>.I 

DESCRIPTION: 

At  present/  this  information  is  iqnore'1. 
the  COBOL  calculator  is  non r a t i ona 1 > it  wit 
needed  tor  specifying  input  ana  output  files 


ft  2 


Once 
1 oe 


ELEMENT 


DATA  DIVISION  Fermat 


FOKMAT: 


DATA  DIVISION. 

[FILE  SECTION. 

[FD  f i 1 ename 

l<record-descrirt  i OP*»nt  pvJ 

UESCK IPT ION : 


This  section  describes  how  the 


oat  a 


t urea 


r 


I 

I 

1 


ELEMENT: 

*<com«ient  > 

FORMAT: 

* <anv  string  of  ASTIJ  characters* 

DESCRIPTION: 

If  a space  and  an  directly  follow  the  line 

number,  all  characters  until  the  '.(C&)'  are  ig- 
nored bv  the  interpreter. 

EXAMPLES: 

D0010  * this  is  a samnle  comment . (C& ) 


ELEMENT 


<da t a-desc r i pt icn-en t r y > format 


F0HMAT: 


level-number  (data*na«el  • 

fFTLLEP) 

CP1C  character-string 

[VALUF  c h a r ac t e r-s t r i nql ] 

DESCRIPTION: 

This  statement  cescrihes  that  specific  attri- 
butes ef  the  oata.  The  VALUE  clause  is  usea  to 
initialize  a variable  to  a specific  value  nhe" 
the  proaram  begins  execution. 

EXAMPLES: 

v 1 data-in. 

02  parr  r i c * ( ^ J . 


0 2 num 


o 1 c 


°9  value  U 


ELEMENT 


PROCEDURE  DT  V IS T UN  Format 

FORMAT: 

PROCEDURE  DIVISION. 

iDaraarapS-name  . J <sentence>  (<sentence>  . . . 1 ... 


DESCRIPTION: 

This  division  centains  all  the  axecutaDle  CUBuL 

ct  c _ 


ELEMENT 


<sent *nee> 

fohmat  : 

<iffioeraf  ive*sfateirent> 

<conoi t Ton-statemenf> 


ELEMENT 


<imcerative-statement> 


FORMAT: 


ACCEPT 

ADD 

CLOSE 

DISPLAY 

DIVIDE 

GO 

MOVE 

multiply 

OPEN 

PERFOPM 

READ 

STOP 

WRITE 

DESCRIPTION: 

ACCEPT,  DISPLAY,  OPEN,  and  CLOSE  are  current  I v 
i anored  by  rn»  i nterpreter  because  they  aepend 


on  devices  external  to  the  machine 


E.LLMEN7  : 


<conditional-statem«»nt> 


FORMAT: 


IF 


ELEMENT 


ADO 

FORMAT: 

ADD  (identifier-l)  T(J  identifier-? 

( 1 i teral > 

DESCRIPTION: 

This  instruction  adds  identifier-l/literal  to 
identifier-?  ana  stores  the  result  in  identif- 
ier-?. 

EXAMPLES: 


add  10  to  total 


ELEMENT: 

DIVIDE 

FORMAT: 

DIVIDE  f i dent  i f i er- 1 > INTO  { i Hen  t i f i e r-2  > 
/literal! 

DESCRIPTION: 

TRis  i r>st  rue  t i cn  divides  i den  t i f i e r - 1 / 1 i f e r a 1 
into  identifier-?  and  stores  the  result  into 
i den  t i f i e r-?  . 

t*AMPLES: 

divide  S into  total. 
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ELEMENT 


GO 

FORMAT: 

GO  raraaraph-naire 

INSCRIPTION: 

The  GO  instruction  causes  an  unconditional 
oranch  to  the  specified  paraqraoh  name. 

EXAMPLES: 


go  10-oegin 


ELEMENT 


IF 

FOHMAT: 

IF  <eondition>  { i td?  ra  t i v e“  1 I IFLSt  i mrera* 
t i ve*?] 

{ NF  X T > 

DFSCK I PT ION : 

If  the  condition  evaluates  true  either  imoera* 
tive-1  or  the  next  sentence  in  the  procrsm  is 
executed.  If  the  condition  is  falser  either  im- 
perative-? is  executed,  or  the  next  sentence  is 
sk i oped . 

EXAMPLES: 

if  a nreater  b co  lfl-beain  else  go  30-end. 
i f x nume r i c next. 
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ELEMENT 


MOVE 

FOHMAT  : 

MOVE  { i dent i t i e r- 1>  10  ioenti*i»r-2 
{1 i t era  1 ) 

DFSCPIFT ION: 

Either  t’he  value  stored  in  identjtier-1  cr 
literal  value  is  stored  into  i oent i * i er-<i . 

EXAMPLES : 

move  10  to  suhtot  a I . 


t ne 


move  sub-total  to  total 


ELEMENT 


MULTIPLY 


format  : 


MULTIPLY  ( i den t i f i e r- 1 > BY  i dent i f i er-2 
{1 i teral } 

DESCRIPTION: 

The  multiply  instruction  causes  identifier- 
be  multiplied  by  i dent i f ier-P.  The  result 
be  able  to  be  stored  into  ide«ti fiet-?. 

EXAMPLES : 

multiply  3.5  by  3.9°. 


1 t o 
must 


75 


ELEVEN! 


PERFORM 

FORMAT: 

1.  PERFORM  paraqraoh-name  [THRU  paragraoh- 

name-2] 

2.  PERFORM  paraqraoh-name  ITHRU  paragraoh- 

name-?J 

{ i aenf i f i er  1 Tl«ES 
{ i n f eoe r ) 

3.  PERFORM  paraqraoh-name  l TH°U  paragpaoh* 

name-21 

UMTTL  <conPi  t i on> 

DESCRIPTION: 

This  instPuCtipr  causes  an  unconq i t i on  a 1 bnanch 
to  the  specifier)  oaraoraph  name.  When  the  petunn 
conditions  ace  met,  execution  pesumes  at  the  in- 
St  puct ion  folloeino  the  PFRFORM  statement.  At 
ppesent,  PERFORM  statements  can  be  nested  eioht 
levels  deep . 

EXAMPLES: 

pepfonm  10-beoin. 

pepfopm  10-reaa  thru  20-ena-pead. 
pepfonm  10-read  until  card-in  numeric. 


7 o 


ELEMENT 


HEAD 

format: 


HE  AD  f i 1 e-name 

DESCRIPTION: 

Data  is  read  from  some  external  device  into  the 
Data  division  entries  For  that  file-name. 

EXAMPLES: 

read  data-in. 
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ELEMfcN J : 

STOP 

format : 

STOP  IRUM 

DESCRIPTION: 

This  statement  causes  the  interpreter  to 
ana  return  control  to  the  eon j tor. 

EXAMPLES: 

Stoo. 


ELEMENT 


aRITE 

FORMAT  : 

aRITE  f i 1 e-name 

DESCRIPTION: 

This  statement  causes  tKe  values  in  the 
division  associated  * i t h the  specified  file 
to  be  printed  on  the  line  printer. 

EXAMPLES: 


write  total. 


Data 

name 
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ELEMENT 


<eond i t i on> 


FORMAT  : 


RELATIONAL  CONDITION: 

{ i den  t i f i e r- 1 1 {NOT1  {GREATER}  {identifier-?} 
{literal-1}  <LFSS}  {literal-?} 

(EOUAL} 

CLASS  CONDITION: 

identifier  fNOTl  {ALPHABETIC} 

{NUMERIC} 


DESCRIPTION: 

Identifiers  are  tested  as  specified. 

samples: 

total  greater  100. 
number  not  numeric, 
character  eaual  beta. 


BO 


SOURCE  LISTING  — COED 


*d« fine 

EOL 

0177 

/*  <*ud  of  line  character 

*:/ 

»de fine 

ME  ns  IZE 

♦00  h 

/**  n Ize  of  memory 

area 

*/ 

Me  fine 

RWORDS 

30 

S4-  u.imber  of  reserved  jorilu 

•j»  / ' 

'■le  f Ine 

SPACE 

0 

'define 

TAB 

1 

Me  f 1 ne 

PERIOD 

2 

Me  f i ne 

FILLER 

32 

Me  fine 

ERR 

0 

Me  f Ine 

ADDLINE 

1 

Me  fine 

MODIFY 

n 

Me  f I ne 

DELETE 

3 

Me  f 1 ne 

BLANK 

4. 

Me  f l ne 

PRINT 

:*> 

Me  fine 

QUIT 

U 

Me  f l ne 

LESS 

Me  f i ne 

EQUAL 

2 

'define 

GREATER 

1 

Me  f Ine 

TRUE 

1 

Me  fine 

FALSE 

0 

Me  f Ine 

CR 

• St  * 

' l nc l ude 

"table" 

■'*  The  following  characters  hnv»  special 

s 1 gn Iflcance  In 

COED 

f./ 

/*  ' AOOOO’ 

the  first 

line  number  and  mandatory  "IDENTIFICATION 

*/ 

/* 

DIVISION.  " 

line  en i ry. 

X/ 

/* 

manda  tory 

"ENVIRONMENT  DIVISION.  1 line  entry 

X/ 

/%  •C9000’ 

nan da tory 

"DATA  DIVISION. " 

1 Ine  entry 

*./ 

/•*  • oeooo  • 

mandatory 

"PROCEDURE  DIVISION."  line  entry 

/*  For  the 

to  1 lowing 

Items  ’ CR‘  is  the 

newline  choracter 

for  tmiX 

*/ 

/*  and 

• XXXXX-  Is 

a correctly  formed  line  number. 

5*,' 

/*  ’.CR’ 

end 

of  ) 2 ne 

iv' 

/*  "XXXXX  dCR" 

de  le 

le  t his  line 

/*  "XXXXX 

mCR" 

mod  i f y t U is  line 

*/ 

/*  "XXXXX 

* < ASCI  I strlng>.CR  " comment  line 

*/ 

s*  "q  CR" 

or  "quit  CR 

qu  1 1 

the  editor 

■*/ 

/*■  NOTE:  LOWER  CASE  ASCII  characters  will  be  used  by  the 

progr--,  mer 

*/ 

/* 

except  for 

comments  and  the 

1st  char  In  the  line  ni:r.ib"r, 

, %/ 

/*  This  version  will 

generate  sequential  line  numbers. 

if  th- 

*/ 

/*  user  wishes  to  change  the  line  number,  type  the  new  line  nur.ber 

/*  i ramed  In  t e l y following  the  1st  number.  If  the;  user  wishes  to  *■/ 

/*■  Increment  the  numbers  by  one.  Instead  of  10,  type  a line  number  * 
/*  with  a least  significant  .1  i g i t of  I thru  0.  i.e.  not  0.  t./ 


char 

lbf  236)  t 

* 

Input  line  buffer 

char 

t b C 2561  ; 

'* 

token  buffer 

*./ 

char 

sir  49961  t 

print  name  table 

*/ 

char 

c Inf  31  : 

'* 

current  line  ' buff 

r./ 

char 

temp  i 

'X. 

temporary  char  huff 

x./ 

char 

meiuIMEMSIZEl  ! 

memory  size 

i*  »•* 

1 n t 

11.  p i 

'X. 

line  buffer  pointer 

5ft/ 

lot 

tbp : 

.'V. 

token  buffer  pointer 

*/ 

iat 

• bp : 

1st  r ha  r of  ym  in  1 b * / 

lot 

er*  1 : 

top  of  arm  1 

X / 

Iat 

ep2: 

• K 

bo llom  of  nr»  a 2 

*/ 

Iat 

nc  t Ion: 

• • * 

editor  nation 

%/ 

1 n t 

ea ! 

top  o f « yin  ho I fol  io 

x/ 

1 n t 

»m: 

l«>p  of  no  mo  i*  y 

X.  ’ 

ini 

d<-  1 r 

• * 

do  trie  f l air 

X/ 

Int 

r n t 0 : 

1 ! »if»  * » r.c  ro  r'e  n t 

M;  / 

st.  r-'non  '/ 


error<  a ) 

char  *si  C 


/*  When  an  error  19  detect-.-*!,  a ' * ' is  inserted  at  the  point 
/*  that  the  error  was  detected  and  the  appropriate  message  is 
pr inted . 


*/ 

*/ 

*■/ 


Int  n: 

ac  t Ion  = ERR; 

for  <u=0;  a<  Ibp;  n++)  /*  Insert  an  " at  error  '*■/ 

putchar  < ' ' ) ; 

putchar  < ’ " ’ i : 
putchar  < CR) ; 

printf  ( "TJs  CR",s):  /"J:  print  the  error  msg  */ 


1 np  n t (mod) 

Int  mod ; ( 


;rrprrT  *s 


This  routine  accepts  characters 

from  t he 

console  and 

mo  ve  p 

*/ 

/* 

them  to  the  input  buff-r 

. LP. 

It  then 

wi  1 | ana  lyse 

t he 

*/ 

/* 

Input  to 

de  terra  1 ne  wha ' 

action 

the  editor  will  take 

• 

*/ 

/* 

The  parameter  MOD  indient 

os  If 

the  action  invclves  a 

ne  w 

*/ 

/* 

line  or  a 

mod  1 f Ic a t ion  0 

f a n 0 

Id  line. 

%/ 

Int  next . d lgi t . number , 1 ; 

pu  t char 

<’*’); 

/* 

inpnt  request  chnr 

*■/ 

ac  t Ion 

= ADDLINE; 

if  (mod 

N 

11 

« 

w 

i-h 

/* 

input  a new 

1 Ine 

*/ 

1 bp 

= 0; 

if 

< Ibt  01  > = 

•A'  08  IbtOl  = 

•D’  ) 

C 

line  • in  line  buff 

If  < lbt  4l 

! = ’O’) 

/*  1 f 

the  last  digit 

of  t he  line  • 

is  not  ’0’  Increment 

the  line  uumb-M- 

by  10 

otherwise 

by  1 . 

*/ 

digit 

= 4: 

e lse 


digit  = 3; 
next  = TRUE: 
wh  lie  (next)  ( 

next  = FALSE; 
number  = 1 bf d I g i 1 1 + i ; 

if  ( number >’ 9 ’ 88  digit !=0’ 

number  = ’ 0 ’ : 

next  = TRUE : 


) 

for 

1 

e Ine  t 
for 

) 


) 

Ibtdlgit]  = number; 
digit  * dlglt-1: 

( lbp  = 0;  lbp<5:  lhp-‘+) 
pu  t c har  ( lb(  1 bp  1 ) : 


( lbp*0t  lbp<5;  lbp++) 
putchar  ( c 1 nC  1 bp  1 > : 


>'*  increment  line  s %/ 

■ check,  for  overflow  */' 

• '*  put  number  in  buff 
/*  print  the  new  * 

print  curr  line  * */ 


lbt Ibpl  = getchar(); 

/* 

read  the  1st  char 

3ft  / 

If  ( Ibt  lbpl > * ’ A'  80  Ibt  Ibp' 

= * D*  > ( /* 

c lie c k if  a line  * 

*/ 

IbtOl  = lbt  IbpJ  ; 

wr  ite  over  1st  * 

for  ( lbp=l;  lbp<’3:  I h ) ( « 

read  the  rest  of  * 

+./ 

lbt  1 bpJ  - get  char'.' 
if  (Ibt  1 b p 1 < ’O’  1 i 

1 hr  I bp  1 > ) 

error  ( " I MV  AMD 

1 

lbt  IbpJ  * gelchar'  ) t 

L I ME  MUTtRER"  ( ; 

wh  lie  ' I bt  1 bp  1 »*  ’ > 

, •*. 

ship  blanks 

*:/ 

IM*+lbpl  = g»tcluir'  ) : 


1 


1 


* print  t hr  lin*  ' 


e lae  ( 

for  ( Ibp’Oj  lbp<3t  lbp-*--*-') 
putchnr  ( lb(  lbpl ’ : 
lbt  lbpl  * ge tchar( ) s 

) 

If  (action  33  .ADDLINE)  ( 

/*  the  first  fliaractsrs  were 


while  ( lbt lbpl33* 


line  nnu,l>“r  — 
II  I b £ i l>  p I * * * * ) 


no  errors 


*./ 


lb[++lbpl  1 ge  t c linr 1 ' : 

sw| tch  ( lb£  lbp) ) ( 

case  CR: 

action  1 BLANK: 
break: 

case  ‘ : 

action  = PR I NT: 

whi  le  ( lbt  lbp)  '.=  OR) 

1 bt  ++ 1 bp  I = 1 ■ linr  O 

br*ak: 

cose  ‘ 4 ’ : 

lbt ♦+ lbpl  3 getchart): 

If  (lbt  lbp)  33  CR> 
action  - DELETE; 
break; 

case  ’ m' : 

lbt  ♦+  lbp)  - getchart >t 
If  (lbt  lbp)  33  OR ' 
action  3 MODIFY: 
break: 


wait  for  1st  non-blank 
/*  depeuds  on  1st  non-blank  '*■/ 
'■*  -nler  a BLANK  LINE  */ 

/*  TR1NT  a block  of  lines  */ 

'*  read  2nd  1 Ine  number 

/*  DELETE  a line  *./ 

/*  n»it  char  must  3 newline  ts 

-■*  print  and  MODIFY  o line  •*/ 
next  char  must  3 newline  *•' 


case  ’ q ' : 

QUIT  the  editor 

*/ 

ac  t ion  3 QUIT: 
lbtO]  ■ ’E': 

for  ( lbp3 1 ; Ibp'Nj  lbp++) 

lbt  lbp)  3 ’O' ; 

/% 

put  ’EOrtOO’  In  LB 

*/ 

) 

lbt  lbp)  3 ge  tclinr'  • : 

get  next  char 

*/ 

If 

(action  33  ADDL1NF.)  t 

/* 

ADD  a new  line 

*/ 

whl  le  ( 1 ) ( 

Ibt+Mbp)  3 getchir'): 

If  (lbp  > 234)  f 

rend  the  console 

*/ 

error!  "LINE  ORF.ATF.R  TRAN 

250  CHARACTERS " ) : 

re  farm 

) 

If  ( lbt  lbp)  33  ’ . ' » t 

/* 

If  Is  read,  check 

If  It  Is  the  EOL 

*/ 

lbt ++ lbp)  3 getclinrl): 

If  < IbT  lbpl  33  CR> 

' * 

a " . ( cr  > " Is  E^L 

*/ 

break: 

J 

) 

) 

J 

while  ( lbt  lbpl  !*  CR) 

/* 

wo  l t for  ne  w 1 1 ne 

lbt  lbp)  3 ge  tchar*  ) : 

Ibf  lbpl 

3 EOL: 

r*  tarn: 

) 

/■*  COMTAnr.  t ■ 

r otnpirt 

( ) I 

/*. 

compares  the  current  line  'imK«  r buffer. 

CLN . with  the  l ne 

*/ 

/* 

number  In  the  1st  five  o:lt,r  In  the 

l *1  p M t 

1 t ne  buf  fer  . I.H 

/* 

if  Ol.N  > LB  t'i.*»  C 3 1 

3PC  / 

/:* 

CLN  3 LB  C 3 2 

rn 


CLH  < LB 


C = 3 


Int  c . k: 

for  ! kT  0 : k<3s  k++)  C 

if  (c  ln[  kJ  *«  1 bf  k.1  ) 

c * EQUAL; 

else  if  (clnlk)  < 1MX1)  ( 

c = LESS; 
break; 

J 

else  If  tclntk]  > lbtk!'  C 

c = GREATER; 
break.: 

J 

) 

re  turn?  c ) ; 

) 


K.‘ 

■'*  char  are  equal:  cent  *■/ 
no  t e qun  1 : h;i  I t 

not  equal:  hn  I t */ 


/*  UPLINE  *' 

upline!)  C 


y*  Finds  the  next  larger  l 

1 >:*  number 

a nd  mo  v©  & 

the  current 

1 i no 

to  the  low  memory  area 

• 

t/ 

Int  J ; 
temp  = ' O'  : 

whl le  ! temp  EOL)  1 

S'*  rao  vo 

char 

until 

e nd 

*/ 

temp  - memC ++cp 1 1 - m* 

) 

for  !j  = 0:  J<5;  j++) 

r.f  p2++  ] ; 

of  t he  line 

X/ 

s * mo  ve 

next 

1 1 ne  • 

to 

%/ 

clnljl  - mere!  cp2-e.| ; 

curr 

1 1 ne  buf  f 

X/ 

return: 


downl lne< ) C 


/*  DOWNLINE  *' 


/*  Finds  the  next  smaller  line  number  and  makes  It  the  current  *✓ 
/*  line  In  the  high  core  area.  The  pointer  cp2  indicates  the  */ 
s*  beginlng  address  of  the  current  line.  */ 


Int  j t 

meat — cp21  - raemfcpl — 1; 
temp  * memC  c p 11  : 
while  (temp  !*  F.OL)  ( 
men! — cp2J  * temp: 
temp  - m»n(— cpl  I : 

) 

for  ( j = 0:  j<  3 : j++' 

clntj]  * raemt  c p2*.l  1 : 

re  t urn: 

) 

/*  SE/\RCn  *■/ 

search!  ) C 


Int  c ; 

IT  (action  I-  ERR)  1 
r * compare!  ) : 

switch  ! c ) C 


move  EOL  char  */ 
■ '*  move  char  until  EOL  */ 


■'*  move  line  * to  curr  */ 
■*  line  number  buff  */ 


*/ 

*/ 

*■/ 

*/ 


/*  no  er<* or  has  been  detected  */ 
'*  compare  Hew  and  Current  Lfl’s  */' 


' HLIi  < CLN  *' 

« move  down  In  memory  r ’ 


case  GREATER: 

while  <c  -=  GivT ATTrl > f 
down  < i no ' • . 

C - "OIMpn**  ' ; 

I 


Searches  the  memory  urns  until  the  line  number  Is  found. 
/*  ( or  the  next  larger  line  number  for  an  add  request). 

This  line  Is  made  the  torrent  line  number  and  pointer  cp2 
Indicates  the  first  nldrees. 


If  (c  *=  LF.SS' 
up  1 l no ( • : 

breaks 

cai«  EQUAL: 
break: 

case  LESS: 

wh lie  < c 33  LESS  ) 1 

up  l l ne ( > : 

c = '•'op-'-i'  l i : 

3 


'*  passed  line  move  up  I*/ 


NLN  = CI.N  iialt 


’<  Nl.N  ' CLN  im>  »e  up  */ 


If  ((action-  ADDLINE  1 ac  t lon=*BLA?*tC)  88  c33EQUAL> 

duplicate  1 i r.“  number  for  a new  line  *' 
error(  "DUPLICATE  LINE  NUMBER"  > : 

e Ise 

If  ( (act lon:  = MOD  I f V >1  action33  DELETE  I I actlon33PR! NT) 

88  c ?3  EQU \L ■ 

/*  a modify,  •'clcte.  or  print  request  and  tlie 

line  is  not  found-  */ 

error)  "LINE  rOTEER  NOT  FOOTID " > : 


/*  GETS >71  */ 


ge  tsyra<  ) ( 


/*  Finds  the  length  of  the  symbol  print  name  in  the  line  buff. 
/*  SBP  indicates  the  1st  charac ter  of  the  symbol 

/*  LBP  indicates  the  1st  blank,  tab.  or  period 


1 nt  1 i 
sbp  3 lbp: 

for  ( 1-9;  1<  17;  1+*)  f 

if  ( lbC  lbp]33’  1 I I lbC  1 bp  1 3 3 

re  turn!  I ) : 

else 

1 bp++ : 

) 

re  turn  ( 1 ) : 


II  lbC  lbp] 33  ' . • ) 


return  the  length 


itch  ( 1) 

I n t 1 : 


'*  MATCH  */ 


/"*  Compares  the  symbol  print  name  indicated  by  the  SBP  to  all  */ 
/*  the  print  names  In  the  s sanbo  1 tafcl»  until  a match  Is  found.  */ 
/*  The  parameter  " 1 “ is  the  length  of  the  print  name.  */ 


lnt  addr  .eq.k.  tm 

•ddr  3 -16: 
del  3 9t 
eq  3 #: 


/*  begining  of  sym  tab  */ 
/*  delete  is  false  */ 

* equal  is  false  */ 


while  (eq  33  0 80  addr  < ( 

/*  compare  until  equal  Is  true  or  the  end  of  the  ay-mbo  I table  *■' 
addr  *+  16:  nest  address  In  S.T.  *<’ 


addr  *+  16:  nest 

«1  ’ 1 l 

If  (stladdrl  < 0)  ( •*  the  d 

sttaddrl  3 8 0177: 
del  * 1 | 

) 

for  t k30:  k<  1 : h-**>  * <-«-  mpn 

If  ( Ibl sbp+kl  »3  s » f addr+k 1 * 
eq  3 Oi 

|f  (-q  >.  J) 

/ 1 Insure  t hn  t the  pen::  iv>r  in  • ■■*— l ►ah  I < 


■*  the  delete  flag  is  set*/ 


t ecrrpnre  all  char 


(end  of  r»  n tnr* ) **  / 


If  < k<  15  3G  s t C addr+V*-  1 1 !=  ’ -'•* 

eq  3 0; 

If  Uel  =3  1 8f.  n " i"  ( 

✓*  found  a deleted  nair-1  and  It  doesn't  match-’  restore  flag  */ 
del  3 Oi 

g>! nddrl  =1  «20O ; 

] 

) 

if  Ccq  33  D ( 

/'*  name  matched,  return  the  token  number 

tn  3 addr  >>  4: 
re  t urn  ( t n)  i 

) 

« Ise 

re  turn  ( ~ I ) : 


enterpnf 1 > 

1 n t 1 : C 


/*■  EMTERPN  •*/ 


/'*■  Copies  the  symbol  print  nan*  from  the  line  buffer,  located  *■/ 
y*  at  SBP  with  length  ’l",  iuto  the  next  empty  symbol  tabic  */ 

S’*  loca  t ion . 


lnt  a . k; 
a 3 0! 

wh lie  ( s t L a ] l3  '/* ) f 

/*  Find  the  1st  entry  where  the  1st  char  Is  V , l.e.  empty  *S 
a 3 + 16 i 
If  (a  > 3 ea) 

re  turn! - 1 ) t 

1 

for  (k=0;  k<  1 s k++>  /*  Move  the  print  name  */ 

•tCn++l  3 lbtsbp++l: 

stlal  3 ' \ Insert  end  of  name  char  */ 

return  Ca>>4)i  /*  Return  the  token  number  */ 


tokenizcf  ) C 


/*  TOKERIZE  *✓ 


/•*  Converts  a line  In  the  Procedure  Division  to  token  numbers  */ 
/•*  and  puts  them  In  the  l-'ktn  buffer,  TB.  The  TB  is  then  moved  */ 
y*  to  the  memory  area.  If  the  line  is  in  the  Data  Division  an  *■' 
/■*  entry  In  the  symbol  table  is  made.  Lastly,  all  lines  in  the  */ 
y*  Identification,  Environment,  and  Data  Divisions  are  copied  */ 
/*  directly  from  the  line  buffer  Into  the  memory  working  ar-a  *•' 
* ( 1 . e . In  ASCI  I)  . *■' 


lnt  J , tn. length! 
char  t i 

if  < i be  41 3 3 ■ D’  aa  (ibtm3’0’  n ib[2i!«'0’  11  ib[3ir3-0’  n 

Ibi 41 f 3 ’ O’ ) as  1 bC  6 I !3  •*’>  C 

/*  line  Is  In  the  Proc . Div  and  not  a comment  or  the  header  */ 
tbp  3 lbp  3 0i 

wtil  le  ( tbp  < 5)  /'*  Move  the  line  * to  TB*/' 

tbt  tbp++l  3 Ibf  Ibpww’  . 

while  (Ibllbpl  t3  EOL)  l ■ find  tokens  until  F.OL*-' 

swl tch  ( Ibt  lbp] ) . 

/*  switch  is  1-  on  the  u«vt  character  In  LP  */' 


tbltbp4-*'  3 STACK i 

1 bp+* : 

break: 


cose  ' 

t bl  t bpi+ i 
1 l’p+*  : 


T'»k"n  * for  11  nnk  */* 


;■  \r,  • 


Token  * for  TAIi 


break: 


tbC  tbp++ 1 
lkp++ ; 
break; 


= FERIOD: 


/*  token  * for  PERIOD  */ 


'*  Symbol  ts  a LITERAL: 

•'*  check  the  sym  tnl.  le  V' 
"•*  for  a match  else  x/ 

/*  make  a new  entry  x/ 


case 

case  ' 1 ' 
case  ’2’ 
case  '3' 
case  *4' 
case  '3' 
case  '6' 
case  '7' 
case  '8' 


length  = getsym!); 

If  ( le  ngt  h = - 1 7) 

/*  literals  can  be  more  than  16  char:  reset  lbp  */ 

1 bp — ; 

tn  = match! length) ; 

If  ( tn  < 0)  ( /*  no  match  found  */ 

tn  = enterpn! length) : 

1 f ( tn  < 0)  C 

error!  'SYMBOL  TABLE  FULL") ; 
re  t urn; 

) 

1 

t - tn : 

tbC  tbp++]  - t : 
break; 

default:  /*  a symbol  print  name  */ 

length  = ge tsym! ) ; 

If  ttength  --  17)  C 

error! ’NAME  GREATER  THAR  16  CHAR"): 
re  turn: 

) 

e lse  ( 

tn  = match! length) : 

1 f ! tn  < 0)  C 

error!  "NAME  HOT  IN  SYMBOL  TABLE”); 
re  t urn ; 

) 

e lse  ( 

t = tn:  /■*  put  token  In  TB 

tb(  tbp-t  + 1 = t : 

) 


/*  Insert  EOL  In  TB  */ 


tbt  tbp+*l  * EOLt  Insert  EO 

tf  <(cp2-cpl)  > tbp) 

/*  Insure  there  Is  room  In  memory  for  the  buffer 
for  !j=0t  J<tbpt  J++) 

memt ++cp 1 1 - tbtjl; 

else 

error!  “MEMORY  FTXLL 1 ) ; 

) 

» lse  t 

If  C lbl«l  **  ’C” > ( 


lbp  * 3 1 

wh lie  ( I b 1 I b p 1 * * 

1 bp+* ; 

If  ( lbl  Ibpl  -*  ‘O' 


/*  line  Is  In  the  Data  Dlv  */ 
'X  search  fra  I lne  * */ 

I I lbl  lhpl-=  ’ ' ) 

! IM  lbp  I " ' 7 ' ' C 

/*  entry  Is  .i  data  definition  */ 


while  (!  Ibf  lbp)'  "a*  II  IM  I'-pl  > "- ' ) RR  lhf  Ibpl  1-  ' . ’ ) 
«!»ip  to  the  alpha  bo  tic  clutr  ' ' r EOl. 


lbp++ : 

J 1 *e  tsym*  ) s 

If  (j  ■*  17)  ( /*  name  Is  loo  tong  */ 

error*  "NAME  GREATER  THAN  16  CHAR"  • : 
return: 

) 

»l*e  If  l.|  51  O'  { 

error*  " INCORRECT  DATA  DIVISION  ENTRY*); 
re  turn; 

) 

e lse  1 

t n - mo  t r M J > ; 

if  ( tn  ==  -1)  t /*  NEW  print  name  */ 

tit  = enterpn*  J ) : 

I f * tn  < »>  C 

error*  "SYMBOL  TABLE  FULL"' : 


else  If  * t n>  = 0 03  tn  1=  FILLER)  C 

/•x  found  a match  and  not  the  name  "filler” 
error*  DUPLICATE  SYMBOL  NAME"); 
re  turn: 


while  (tbtlbpl  1=  EOL) 

1 bp++ ; 

If  **cp2-cpl)  > lbp) 

for  < J 1 8 1 j ' = I b p : J-*-*) 

roe  ml  ++cp  1 1 - lbl.l) 

e lse 

error* "MEMORY  FULL" * : 


LBP  to  end  of  line  */ 

/*  Insure  room  in  memory*-' 
* Move  LB  to  memory  */ 


re  turn: 

) 


decode*  t) 

char  1 1 ( 


* DECODE  */ 


/*  finds  the  address  of  token  number  "t*  and  copies  the  print  */ 
/■*  name  Into  the  line  buffer.  LB. 


I n t addr . mi 
addr  1 t <<  4: 
m - addr+16; 

while  (stlnddrl  !*  V 3ft  addr  < m) 
lb*  lbpee]  * s t [ addr++  1 : 
re  turn: 


/*  address  of  the  token  */" 
•'*  copy  name  until  end 


/*  BLANK  *✓ 


b lank* ) 


Inserts  a blank  line  Into  any  division. 


Int  J : 

for  ( JsO:  j'3:  J + *) 

raemf  **r  p 1 J * 1 b*  J ) : 

memCe+epI)  - EOL: 
re  t urn  t 


* Move  the  line  number  *s 

* Insert  end  of  line 


- * rnirrr  *-■ 


print*)  ( 


/*  Prints  the  cnrront  line  on  console.  (f  the  line  Is  In  t h-  */ 
Prr»e.  D * v.  , it  is  dec ..  ,lrd  before  printing.  Tti  is  line  is  */ 

the  current  line.  i.e.  both  the  C!.f>  and  *.T2  are  line  ltt>  nee  .*  . *■/ 


i 


If  < c I n£  0]  33  ' D’  ao  (c  InC  lj  0 M clnCS!!3^'  M clnCr  •>'»<’  II 
c ln[  41  !*  ’ 0* ) aa  me«£cp2+61  t*’f  > f 


/'*  line  Is  In  the  Proc  Div  and 
sbp  3 cp2t 
lbp  3 Si 

for  (J30:  J<3|  J++) 

pntchar  ( memt  » bp-*"4, 1 ) : 
temp  3 mem(  sbp++  I : 
while  l temp  !»  EOL)  C 
decode( temp) : 
temp  = me  ml  sbp++ 1 ; 

) 

for  (J3S:  j<lbp:  J++) 
putchar  ( 1 b t J ) > ; 

) 

« lee  C 

sbp  3 cp2: 
t»mp  3 mem£ sbp++l ; 
whl  le  ( temp  t3  EOL)  ( 
pntchar  ( temp) i 
temp  3 merat s bp++ J ; 

) 

) 

pntchar!  Oil)  : 

re  turn: 

) 


t a comment  or  the  header  line  */ 
print  the  line  num  */ 
/*  Decode  token  number  */ 

'*  print  the  LB  */ 

■'*  print  line  fm  memory  */ 

decode  the  EOL  char 


de  le  te<  mod  ) 

Int  modi  ( 


DELETE  */ 


/*  Deletes  current  line  from  memory  by  moving  CP2.  If  the  line  */ 
/*  Is  In  Data  Dlv,  the  delete  flag  is  set  for  the  appropriate  */ 
/*  symbol  table  entry.  If  MOD  Is  true.  DELETE  was  called  from  */ 
/*  MODIFY  routine  and  the  line  buffer.  LB.  must  be  saved. 


'*  line  Is  not  In  Data 
* so  move  CP2  to  “ nd 


/*  save  the  line  buff 


int  tn, J . length: 
if  ( lb!0]  »3  ’C’) 

while  ! me ml cp2+* I t3  EOL); 
else  1 

lbp  3 0i 
If  (mod)  C 
tbp  3 0: 

whl le  ( Ibt  lbp]  t 3 EOL) 

tbl  tbp++l  3 lbl  lbp+,t-]  i 
t bC  tbp]  3 lbl  lbp]  : 
lbp  3 0: 

) 

lbt0]  3 raemt c p2++ ] i 
while  ( lbl  lbp]  T3  EOL* 

lb[*+lbp]  3 meml  cp2+e]  | 

lbp  3 5 i 

while  ( lbC  lbp]  33  ’ 1 II  lbl  lbp]  33  •’) 

1 bp++ i 

If  ( lbC  lbp]  33  *•  II  lbl  Ibpl  33 

/"*  not  nn  FD  entry,  a comment,  or  a blank  line 
while  (lbllbp)  < 'a'  II  lbl  lbpl  > 'z') 


skip  blank  char 

) t 


1 bp++ 1 
length  3 getsym!): 
tn  3 match  (length1: 

If  ( tn  >3  RVORDS* ) C 
J 3 tn<  < 4 i 
sttjl  =1  0200: 

) 

) 

lbp  3 0: 

i f f mo  d ) t 

lbp  3 0: 

while  ( tbl  t bp  I *3  C»1L> 

lbl  Ibpeel  3 tb:  Ibn*4!  : 
Ibi  lbp++l  3 tbl  tbp  ■ : 
lbp  3 O: 


'*  skip  to  1st  name 

* find  symbol  name 

•'*  not  a reserver  word 

* set  delete  flag 


i tore  line  huff 


*/ 

■*/ 


/*  move  old  line  to  LB  *■/ 


*■/ 

■»./ 

*/ 


*/ 


'*•  set  CLN  to  next  tin*  */ 


3 

for  (j*0;  J<3t  J + +) 

elnljl  3 memf  cp2-*-j  J : 
re  turn : 


mod  1 f y(  > ( 


/*  MODIFY  •*/ 


/*  calls  the  routines  to  allow  the  mod  1 f l<-a  t Ion  of  a line 


*/ 


print* ) ; 
l npu  t < l ) ; 

switch  (action)  ( 

case  ADDLINE: 
de  le  te(  1)  ; 
t o he  n 1 ?:e  ( ) ! 
break i 

case  DELETE* 
de la  te(  0)  t 
breaki 

case  BLANK: 

Ihp  3 0: 

breaki 


/*  Replace  old  line  wi  tli  new*/ 


/*  delete  the  old  line  */ 


/*  do  not  change  the  old  line  */ 


de  f au 1 1 : 

error! " ILLEGAL  ACTION  FOR  LINE  MODIFICATION”) i 

) 

re  turn: 


prlntblkO  ( 


/*  PRINT  BLOCK  */ 


/*  Starts  at  the  1st  line  nunber  In  the  LB  and  prints  all  lines  */ 
/*  until  the  current  line  matches  the  2nd  line  number  in  the  LB.*/ 


/*  If  the  1st  char  following  the  comma  is  a CR.  one  line  Is  */ 

/*  printed.  If  the  1st  char  following  the  comma  Is  a ’E*.  all  */ 
/*  lines  are  printed  until  the  End  Of  File  Is  encountered.  */ 

/*  Allowable  forms:  XXXXX. XXXXX  CR 

XXXXX. E CR 

XXXXX.  CR  */ 


Int  c . 1 : 

If  ( lbl 6]  f=  EOL) 

'*  If  not  a newline,  write  the  2nd  line  number  over  the  1st  */ 
for  < 130:  1<  5;  l+e)  ( 
lbt  1]  3 lbl  1+6)  : 
if  < lb[01  3=  ’ E’ ) 
breaki 

) 

c 3 compare ( ) : 

while  i«  1*  GREATER)  l 

/*  print  lines  until  the  2nd  line  number  Is  found  or  exceeded  */ 
print*): 
up  1 1 ne  * ) i 
c 3 compare* ) i 

IT  * c 1 nl  0 1 33  ' E’  AA  I bf  rt]  33  ’E'l  l 

print*) i . * print  the  EOF  line  */ 

break: 

J 

) 

re  turn: 


quit*) 


/*  QUIT 


*/ 


/*  The  file  has  been  move!  t !i“  low  nr«j  of  memory  and  ct  1 


-/*  points  to  the  last  addr-es  of  the  file.  The  symbol  table  */ 

/*  must  be  •*  leaned  up  by  eel  ting  nil  deleted  p-names  to  zeros.  */ 


1 n t a , J : 


for 

(.1  = 0;  ,1<  6 : J+«-> 

men!  ++c «>  1 1 * meniC  c p2+  + 1 : 

/'£ 

move  End  Of  File  line 

a * 

0; 

wh lie  (a  < ea)  ( 

/* 

Chock  entire  S.T. 

*/ 

If  (sttal  < 0)  C 

/* 

If  the  delete  flog  is 

se  t */ 

for  (J=0;  J<  16;  J++* 
stla+j)  = 'S'; 

J 

a * + It*: 

S'* 

set  the  entry  to  V 

*/ 

/* 

U'xt  p-name  entry 

*/ 

) 

re  turn; 

) 

/*  in  it 

InltO  ( 


/*  Cheeks  If  file  Is  new.  If  «o,  the  top  of  file  and  end  of 
/*  file  lines  are  inserted. 

/•*  If  old  or  new,  the  EOF  i«  made  the  current  line  number 


*/ 

*/ 


1 n t J . k . I ; 

1 * 0: 

for  <j  = 0t  j < RW0RD9 : j++) 
for  (k=0;  k<  16;  k++' 

sttl+eJ  - sym  Cj)  1 kl 


/*  Initialize  the  symbol  table  */ 


ea  » 2048; 
j s RWORDS* 16 ; 
whl le  ( J < ea) 


/*  set  the  length  of  ayro  tab 


J 

c p2 


s 1 1 J++1  * ' ; 


) 


down  I I ne ( ) ; 
re  turn; 


makes  EOF  the  current  line 


head lng( > C 

prlntf  ( 'COED:  Co bo  1 Editor. 


HEADING  *✓ 

Version  1.0  CR") ; 


1 


/•*  MAIM 


urn  ln(  ) ( 

lnt  h; 


cp  I 


/*  for  TEST  only 


*/ 


head  t ng<  > ; 
t n I t * > ; 


prints  heading  line 
'*  Initializing  rontlne 


*/ 

*/ 


sc  t Ion  * ERRt 
while  faction  1 5 
Inpnt  < Oi ; 
search!  ) ; 


QUIT*  ( 


•util  user  sez  "quit” 
•■■nd  t lie  ronso  le 
. nd  the  desired  line 


*■/ 

%/ 


* HEMSIZE: 

/*  CP2  starts  at  top  of 

memory 

*/ 

f 

tcpl  ==  -1) 

C 

/*  a new  file,  l.e.  no 

c ha  r . s 

*/ 

me  mC ++c  p 1 1 

a 

EOLt 

meral ++c  p 1 1 

- 

'A*  - 1; 

•'*  Se  t top  o f file 

*/ 

roe  rn[  **r  p 1 ] 

- 

EOL; 

raemC  ++cp  1 ] 

a 

•E'  : 

set  end  of  file 

1 ine 

*/ 

ne  ml ++cpl  J 

a 

•0’  ; 

me  rot  +-ecp  1 3 

a 

•F*  : 

roe ml *+cpl  1 

a 

• ' • 

roe  ml  +*cp  1 1 

3 

• ’ • 

me ml  >+cp  1 ] 

3 

EOL; 

switch  (action)  f 


action 


Is  set  In  input  *■'' 


c. ase  ADDLINF.: 

tokf nizf ' ) : 
break: 

cas»  MODIFY: 
mod  I f y(  * : 
break: 

case  DELETE: 

de 1 e te ( 0) : 
break: 

case  BLANK: 
b !»ak( > : 
break: 


case  PRINT: 

pr  I n ? b I k<  > t 
break; 


I 


) 


rase  QUIT: 

qu I t ( ) : 


for  (h30:  h<=cpl:  h++) 
putchart  nemL  hJ  ) ; 
for  ( h=  0 : h<ea;  h++) 
putcbar  ( s t [ hi ) ; 


✓'*  ADD  a 1 1 ne  */ 

/■*  MODIFY  nn  eld  line 

/'*  DELETE  an  old  lire  */ 

/'*  insert  n BLANK  LINE  */ 


/*  print  a BLOCK  of  lines  */ 


/*  QUIT  the  editor  X/ 


sx  move  mem  nrea  to  file  x/ 


I 


SOURCE  LI ST 1*0  — COIN 


*d« fin© 

SPACE 

0 

*d«  f l ne 

T\B 

1 

'de  f i ne 

PERIOD 

2 

'de  f l ne 

NEWLINE 

ri 

'de  C Ine 

COMMA 

4 

*de  f lue 

COMMENT 

5 

•»d©f  ine 

ACCEPT 

6 

*d«  f Ine 

ADD 

7 

'de  fin© 

TO 

8 

'de  f 1 ne 

ROUNDED 

0 

* d e f 1 ne 

SIZE- ERROR 

10 

'de  fine 

CALL 

1 1 

'de  f l ne 

CLOSE 

12 

'd  e f 1 ne 

DELETE 

13 

'de  f 1 ne 

INVALID 

14 

'de  f 1 ne 

DISPLAY 

15 

'de f 1 ne 

DIVIDE 

16 

'de  f ine 

INTO 

17 

'de  f l ne 

ENTER 

IB 

'de  f 1 ne 

EXIT 

) 9 

'de  f 1 ne 

CO 

20 

'de  f 1 ne 

DEPENDING 

21 

'de  f In© 

IF 

°2 

'de  fine 

NEXT 

23 

'define 

ELSE 

24 

'd©  f 1 ne 

MOVE 

25 

*d« f l ne 

MULTIPLY 

26 

'de  f 1 ne 

BY 

27 

'de  f Ine 

OPEN 

28 

'de  fine 

INPUT 

2‘» 

'de  f l ne 

OUTPUT 

:3« 

'de  fine 

PERFORM 

31 

'de  f 1 ne 

THRU 

32 

'def Ine 

TIMES 

33 

'def Ine 

UNTIL 

34 

'd©  fin© 

READ 

33 

'def Ine 

END 

36 

'de  f 1 ne 

STOP 

37 

'de  f i ne 

RUN 

38 

'de  f 1 ne 

SUBTRACT 

30 

'de  f l ne 

FROM 

40 

'd©  f 1 ne 

WRITE 

41 

'd©  f 1 ne 

BEFORE 

42 

'de  fine 

AFTER 

43 

'de  f i ne 

ADVANCING 

44 

'd©  f l ne 

PACE 

45 

'de  f 1 ne 

NOT 

46 

'de  f 1 ne 

GREATER 

47 

'd©  fine 

LESS 

48 

'define 

EQUAL 

40 

*de  f 1 ne 

NUMERIC 

50 

'def In© 

ALPHABETIC 

51 

'd©  f 1 ne 

EOL 

0177 

'd©  f 1 ne 

MEMSIZE 

4006 

'd«  f 1 ne 

MAX 

0236 

'def Ine 

ON 

0001 

'd©  f 1 ne 

OFF 

OO00 

'4©  f l n© 

TRUE 

0000 

'd«  f t n© 

FALSE 

OOO  1 

'de  fin© 

NUL 

• / • 

'd©  f 1 ne 

EOF 

■ O’ 

'define 

■ d<l 

0 

'define 

nub 

COBOL 

1 

IN1T.RPRF.TER 

/*  Tli©  1 

following  tnbl©©  ore 

n©  ©d  for  tl 

03 


C'»I*  •*.' 

ar!  1 Vni?  Mr  rout  iiir*.  In 


/*  the  lapllmntatloa  of  this  interpreter  on  a mlcrocompu  trr . these  *s 
/*  tables  would  be  In  ROM.  Thus  the  access  time  would  be  pppro? — */' 
/*  lmately  equal  to  the  memory  cycle  time.  */ 


char  *addtabl  l 101 

"0120436789“. 

* 1204367890" , 
“2045678901  ", 
"0456789012", 
"4567890120", 
"3678901204" . 
"6789012045". 
"7890120456". 
"8901204567", 
"90  12045678  ’ , 

0 

] ! 

char  *addtab2  C 101 
"0000000000" , 
■0000000001 
"000000001  I 
•00000001  I I 
"0000001 1 1 1 
"000001  1111 
"00001 11111 
••0001  I 1 I I 1 1 
"00 1 1 1 1 1 1 1 1 
•0111111111 
0 

I : 


c 


/*  addition  sum  » a •>  * e 


/*  addition  carry  tr-ble  */ 


char  *subtobl  [ ]©] 
"0987634021 " , 
"1098765432". 
"2109876543  ", 
"3210987654" , 
"4321098765" . 
"5432I09876", 
"6343210987". 
"7654321098" , 
”0763432109". 
•9076343210"  , 

0 

)t 

char  *subtab2  t 10] 
"0111111111" 
"0011 111111" 
"0001 111111" 
"00001  lllll" 
"000001 1111" 
"000000  Mil" 
"00000001  I 1 “ 
"000000001  I " 
"0000000001 " 
"0000000000" 

0 

] ! 


/* 

sub  trae  t Ion 

table 

'X 

this  table  a 

* s un-  s 

that  sub  tab 

i ■*:!  : y 1 '*■/ 

'X 

means  x - y 

X/ 

/*  borrow  table 


char  sanltabl  [ 101 
"0000000009" , 
"9123436709". 
"0246802468"  . 
"0369238147". 
"0482604826  * . 
*0303050303 " . 
•0628406284  ''  . 
"0741832963* . 
•0864298642  '. 
"09876,14321  " . 

0 

)s 


/'•c  L?D  of  product 


94 


char  *mnl tab2  [103  C /*  MSO  of  product  */ 

•9000000000  " , 

‘0000000000 " , 

"000001 1111". 

•00001 I 1222”. 

"0001  122233”. 

”001 1223344" , 

'901 1233445 " . 

"0012234456", 

•0012344367"  . 

•0012343678", 

9 


1 n t length  0 : 

Int  errf  Ig  OFF: 
c ha  r s a ve  ' ' : 

char  memt  MEMS1ZE)  : 

Int  pc : 
int  a p t r : 
char  nb n ft  161  : 
char  x.9  , y-s  : 

Int  x l . x2 . x3 . y 1 . y2 . y3 . n : 
char  xb( 323 , ybt 321 . t-mpf 32] 
i n t 9 p - I i 

int  cntrCBl  : 

Int  r tnC  81  ; 

int  “Xt [ 81  : 

r hn  r p9  a ve  ; 
int  cp I . r p2 : 
i n t begprnc : 
i n t begda  tn  : 
int  bane: 
int  onndptr: 
char  1 ht  256 ] : 
int  1 bp  0 : 

Int  e I nt  3 1 : 

I n t x « : 

int  y 1 : 


/*  byte 
/*  byte 
/*  byte 


/*  byte  accessible  memory  array 

S*  program  call byte  offset  in  mem  */ 

/*  search  buffer  pntr — byte  offset  *y 
/*  search  buffer  *y 

s*  sign  bytes  for  x and  y buffers  */ 

c[32J:^*  operand  buff  for  math  routines 

/*  stack  pointer  for  PERFORM  verb  *■/ 
S’*  counter  stack  for  PERFORM  verb  *✓' 
s'*  rtn  addr  stack  for  PERFORM  verb  *' 
s'*  exit  cond  stack  for  PERFORM  ’»rb  */ 

/*  memory  pointers — byte  offsets  *•' 
offset  — init  to  beginning  of  proc  div  *■/ 

offset— — inlt  to  beginning  of  data  div  */ 

offset — inlt  to  beginning  symbol  table  *■/ 
S*  condition  putr  For  IF  verb  *s 
s*  line  buffer  */ 

S*  line  buff  pnti byte  offset  */ 

/*  current  line  number  */ 


y*  READ  I It  *y 

rend Int)  l /*  This  routine  Initializes  2 memory  po  inters  — one  4/ 

/*  at  the  beginning  and  one  at  the  end--an-i  r»ods  *./ 
s*  In  a predefined  Input  file  until  eof  or  the  2 *-s 

y*  pointers  meet.  *s 

cp  1 - - 1 ; 
cp2  = MF.MSIZE: 

wove  - ge  t chart  ) : 

while  (save  EOF  38  cpl  Is  cp2)  C 

mem[*+epl]  - save: 
save  a getcharO: 

3 

If  (cpl  ?=  cp2)  ( 

me  mf  p | ] i save:  s*  write  EOF  Into  re  mo  r y *y 

length  - cpl: 

1 

e Ise  ( 

peintft "PROORAM  EXCEEDS  AVAILABLE  MEMORY") ; 

« r r f I g - OR i 

) 

re  turn i 

) end  read  In  *y 

y*  vniTEOTTT  *y 


wr  I t e o »i  1 1 ' C 

wh lie  ( cpl  ’ = 
me  mf  -‘--'•pi  J 
cpl  5 0| 

1 ,isp^  * 


lengt  h) 

- memf  c p2++  ] : 


t>3 


while'opl  !*  length  D3  HnleplI  !*  EOL) 
put chart  mernt  cpl++1 ) ; 

If  (cp!  1 = length)  C 
pn l ch»r( 
goto  loo  P*i 

) 

return: 

/»■  end  writeout  */ 

/*  compare 


compare  ( ) t S * This  roiitlno  compares  the  current  line  number  */ 

y*  buffer,  cln,  with  the  first  3 character*  In  the  */ 
y*  line  buffer,  lb.  *■/ 

/•*  If  cln  > Iba  1 la  returned:  */ 

/*  If  cln  = lb  a 2 Is  returned:  */ 

y*  If  cln  < lb  a 3 is  returned.  */ 


Int  comp.k; 

for  (k=0:  k<3;  k++>  f 

if  (c Int  kl  33  Ibtkl ) 
comp  3 EQUAL; 

else  if  (clntk)  < Ibtkl)  C 
comp  * LESS; 
break: 

) 

else  If  (clntkl  > Ibtkl)  C 
comp  3 GREATER; 
break: 

3 

) 

re  turu( comp) : 

3 y*  e nd  compare  */ 

y*  UPLINE  *y 

uplinet)  C /*  This  routine  finds  the  nest  larger  line  number  and  *y 
y * moves  the  current  line  to  low  memory  area.  */ 


y*  move  char  until  « nd  */ 
memC cp2++] ; of  the  line  */ 

y*  move  next  line  * to 

y*  curr  line  buff  *y 


y*  DOWNLINE  *y 

downline!)  C ✓*  This  routine  finds  the  next  smaller  line  number 

y*  and  makes  it  the  current  line  in  high  core — cp2  *y 
y*  indicates  the  beginning  addr  of  the  current  line 

Int  j.  scratch; 
me iut — cp2J  * memtcpl  — 1: 
scratch  3 memtcpll: 
while  f scratch  I*  EOL)  C 
mernt --cp21  3 scratch; 
scratch  * mernt — cpll; 

3 

for  (J*0;  J<3;  J++) 

clntj!  1 memfcp2+jl; 
re  turn; 

5 /S!  end  downline 

y*  TOKEN  */ 

token!)  f '*  This  routine  returns  the  next  token 

number  scanned.  *V 
whl let mernt pc*+l  < COMMENT’ 

skip  periods,  commas,  tabs,  and  blnnks  *y 


y*  move  EOL  char  *y 

/*  move  char  until  EOL  *y 

/'*  move  line  * to  curr  *y 
y*  I ine  number  buff  */ 


int  j.  scratch: 
acra tch  3 ’O’: 
white  f scratch  T3  EOL)  C 
scratch  3 mernt eecpll  3 

1 

for  <j30:  j<3:  J++) 
clntjl  3 me  tat  cp2+J  1 ; 
re  turn; 

3 y*  end  upline  *y 


/'*  char  are  equal:  font  *y 
y * not  equal:  halt  */ 

y*  not  equal:  halt  *y 


pc  J 

re  torn*  inemC  pc  ] ) t 
} /*  *n<l  token  */ 

/*  FIND  *' 

f 1 ndt'  C /'*  This  routine  searches  the  data  division  nnt  1 I !r 
finds  a match  with  the  name  in  sbuf.  *s 

Int  1 < 
loop  I ■ 

l 3 0: 

while  U < 16  88  ebufCil  f*  NUL  33  sbufl 11  33  memtcp23'  t 
»*♦! 

meml++cpll  * me  ml  op2++ 1 t 

1 

If  (1  !*  16  38  sbuf l 1 1 •*  NUL>  ( 

l 3 0! 

memC++cpll  3 mernl  cp2*+ 1 t 
go  to  looplt 

1 

/*  cpl  now  points  to  the  last  character  of  t lie  Identifier  ■*/ 
for  ( l30t  l<  I6t  !+♦)  /*  zero  out  sbuf 

sbufl  11  3 NULi 
re  turti: 

1 y*  end  find  */ 


/*  IN ITVAL  */ 

InttvalO  C y*  This  routine  Initializes  variables  In  the  data 
division  that  have  the  'value'  clause.  An  *3’ 
sign  and  the  Initial  value  Is  Inserted  directly 
following  the  clause.  */ 

Int  1 1 

Ibtft]  3 *C*s  '*  fill  lb  with  line  • of  data  division 

for<  l30t  1 < S t i++> 
lbl  11  * '0'  l 

while  • cnmparel  ) ?*  EQUAL' 

/*  move  lines  to  low  core  til  top  of  data  div  *./ 

down  I i net ) t 

begdata  3 cpl  +1:  /*  byt*  offset  of  first  line  • of  dnta  div  *■/ 

sbufl 01  3 ’ V i 

abaft  11  * 'n’t 

sbuf 1 21  3 * I*  » 

sbufl 31  • ’n't 

sbuft41  3 'e*  t 

while  ( cp2  t3  begproc)  ( 

flndt);  / * finds  each  occurence  of  VALUE  clause 

whi  let  f < me  ml  cp  1 1 >3  '<♦'  33  meintcpll  <3  '9')) 

nieml  ♦♦cpI  1 3 me  ml  ••  p2-*-*- 1 ; 
sptr  3 cpli 

while  tmemtcpll  ?3  EOL> 

meml*+cplJ  3 me  ml  c p2*+  1 I 
me  ml  cp  1 1 3 ’ 3 ' I 

wh  lie  tmemlsptrl  I3  ' 3 ’ ) 

memi  ♦♦cp  I ] 3 eeel<iptr++)  i 
meml^+cpll  3 EQL: 

J 

re  tnrm 

3 /*  end  Inttval  */ 

/•*  LOAD  3 

loadtr)  y*  This  routine  loads  zb  or  yb.  depending  on 

the  value  of  r.  with  the  value  correspond- 
ing with  the  token  number  In  save. 

Int  rt  t 

Int  It 

sptr  3 save  s 16  ♦ bns- t 

If  t t meml  sptr 1 ! '®‘>  II  < mcrnt sptr!  > *°')>  f 

If  'meialsptrl  33  l •'*  negative  literal  * 

vs  3 ' ' t 

sptr*+t 
J 


elae 


t 

I r 'roemtaptr]  **’■*•'»  ( S*  poeltlve  literal  *' 

xa  3 
eptre+i 
7 

else  ( '*  a Iplinbe  t lc~  f Ind  value  In  data  dlv  */ 

while  (cpl  Is  hogdata) 

nenC — cpl]  2 raemtcp2 — It 
for  ( 1 = 0:  I < I h : l+*> 

abufCll  3 memf  9ptr++l  : 
f lnd( ) i 

whl le< memlcpl ! "3  '*') 

raemC  ++cp  1 1 3 memC  cp2+e]  : 

sptr  * cp2 ; 

7 

) 

whl  le(  (nantsplrl  7 3 ’ . ' ~.“l  f mem!  sp tr]  ?3EOL)  03!  me  ml  ap  t r ] ' 3,IUL)  ) ) t 

xbl  1.1  3 memlnptrl  ; 

1++: 
aptr++ ; 

) 

If  ( memC aptrl  ? = '.*>  C 
xl  3 l; 
x2  3 yl: 
x3  3 0: 

7 

elae  t 

X I 3 It 
ap  t r++ : 

white  < ( memC aptrl  '3  EOL)  83  (meriCaptr)  !»  0) ) ( 

xM  1 7 * me  ml  ap  *r  1 t 
l++t 
sptr++ t 

7 

x2  3 yl  ♦ I; 
x3  3 1 ; 

) 

IT  (r  33  y)  C 

for(l3©t  I < *2:  1++) 
ybf  17  3 xbt  1 1 : 

yi  3 xlt 
y2  3 x2t 
y3  3 x3t 
ya  3 xa  t 

<- p2  3 cp2  ♦ y2:  '*  value  will  be  overwritten  by  reeult  */ 

7 

7 

re  torn: 

} /'t  end  load  */ 

/*  RELOAD 

reload!)  C /*  Thla  routine  re  load*  a value  from  yb  into 

the  data  d I via  Ion. 

lilt  1: 

I 3 0t 

If  <ya  33  •-*) 

meo( ++ep  l ) 3 yet 
If  ( ybl 17  33  •©•  30  yl  > »* 

while  < 1 * 3 r 1 » 

nemi e*c p 1 7 3 ybl l*+7 t 
If  fy3  »3  ©•  ( 

me  ml  1 3 ' . ’ t 

while  (1  <3  y2) 

meml  ♦+cp  1 7 • ybti**1i 
7 

memC  p 1 1 3 EOL: 
re  turn: 

7 **  <•  nd  re  load  */ 

/*  NERTt.  1 ft* 


->n 


4 


1 


neit line! > ( /*  This  routine  skip*  to  the  first  token  of 

t he  lie  x t line.  */ 

int  1: 

if  (save  !»  COL) 

whl  le  1 token) ) t»  EOL) : 
for  < I = <*;  1 < St  I++) 

c lnt  i)  * mcmC  +-tpc ) t /*  load  cln  and  skip  line  • */ 

) f*  end  next  line  */ 

/*  KEVVD 

key'd! ) t X®  This  routine  calls  routines  by  cobol  key  words.  "/ 
swltch(save)  C 

cusa  COMMENT  ! /*  comment  */ 

next  1 IneC ) t 
breakt 

case  ACCEPT  ! 
accepts ) t 
breakt 

cone  ADD  t 

computet  add ) ; 
break; 

cnee  CLOSE  : 
c lose(  ) ; 
breakt 

case  DISPLAY  : 
display!  ) t 
break; 

case  DIVIDE  : 
d i vtdet ) ; 

breakt 

case  CO  : 
tt°<  > ! 
break: 

cose  MOVE  : 

move  ( ) t 

breakt 

cose  MULTIPLY  : 
an  1 1 ( ) i 
breakt 

cose  OPEN  t 
open!  ) : 

br*akt 

case  PERFORM  : 
perform!  ) t 
breakt 

case  READ  : 
read! ) t 
breakt 

ease  SUBTRACT 

compute!  sub)  t 
breakt 

case  VRITE  : 
wr  i fe<  > t 
been k i 


/*  accept  statement  */ 


add  statement  */ 


close  statement  */ 


/*  display  statement  */ 


divide  statement  */ 


go  to  statement  */ 


S’*  move  statement 


/*  multiply  statement  */ 


open  statement  */ 


'*  perform  statement  */ 


read  statement 


'■*  subtract  statement  */ 


■'*  write  statement  */ 


* syutex  error  */ 


H r f a it  I » : 

errfl*  * ON: 

crriwgl  * INCORRECT  KETVORI)  FOM.OVirw  CONDITIONAL  OR  FLSE')  : 


xo 


L 


! 


) /*  -nd  switch  statement  */ 

return! 


/*  COND  */ 

Condi ) C /*  This  rout  toe  evaluates  a conditional  phrase  and 
returns  true  or  false.  */ 
char  taopl . tenp2; 
save  3 token!  ) i 

lf(<tenp2  3 token!  ))  **  NOT)  C 
tempi  * NOTi 
temp2  - token!  ) l 

) 


»wl  tcli<  temp2>  C 

case  NUWERIC  : '*  numeric?  */ 

sptr  - save  * 16  + base: 

If  'metnfsptrJ  <*  ’ 9 ’ > 

t e mp2  3 TRUE : 

e lse 

temp2  * FALSE; 
br«*nk: 


case  ALPHABETIC  : alphabetic?  */ 

sptr  3 save  * 16  + base; 
i f ( meo<£  sptr)  > '9  ‘ ) 
t e rap2  * TRUE : 

else 

temp2  3 FALSE; 
breaki 

case  GREATER  : xb  > yb?  */ 

load! x) ; 

save  3 token!  ) ; 
load! y) ; 

IT  (size! ) 33  GREATER) 
temp2  3 TRUE; 

e lse 

temp2  3 FALSE; 
breakt 

ease  LESS  « '*  xb  < yb?  */ 

load ( x) ; 

save  3 token!  ) l 
load! y) i 

If  (size!)  33  LESS) 
temp2  3 TRUE; 

e lse 

temp2  3 FALSE: 
break! 

case  EQUAL  t '*  xb  3 yb?  */ 

load! z) t 
save  3 token! ) i 
load! y) i 

If  ! size!)  33  EQnAL) 
temp2  3 TRUE; 

* lse 

temp2  3 FALSEi 
breaki 


default;  /*  syntax  error  *</ 

errmsg! "INCORRECT  VORD  IN  CONDITIONAL  PHRASE*); 
errft*  3 ONi 


) »nd  switch  statement 

If  ! t-mpl  33  NOT)  l 
If  (t.<  ;p2  33  TRUE) 
t-w»»2  3 FALSE: 

e ls» 


ll)«) 


fer>p2  3 TRUE; 


} 

re  tnrn!  l»Rp2) i 
} /*  end  coad 

accept' I ! 

ne  x 1 1 I ne  * * i 
re  turn: 

) /*  end  accept  */ 

c loae(  ) ( 

ne  x 1 1 1 ne  < > ; 
re  turn: 

) /*  end  cln«e  */ 

d Isplsy!  ) t 

next  I IneC  > : 
re  turn: 

) /*  end  display 

/*  GO  */ 

go! ) C /*  This  routine  searches  the  procedure  division 
from  the  beginning  for  a token  match.  */ 
char  scratch; 
save  3 token!  ) : 
pc  * begproc: 

whl le< < sera tch  * token! ) > !■  save  03  scratch  !*  STOP) 

ne  x 1 1 l ne ! ) t 

if  t sera tch  33  STOP)  ( 
err  f Ig  3 ON; 

errmse*  * DEST I N AT I ON  FOR  GO  STATEMENT  NOT  FOUND" ) ; 

) 

e lse 

ne  x t 1 i ne ! ) : 
re  turn; 

) /*  end  go 

/*  1FS  */■ 

ifo!  ) ( /*  This  routine  determines  program  flow  by  testing 

a condition— if  true,  the  Imperative  directly 
following  the  condition  or  NE)fT  SENTENCE  Is  per~ 
formed:  If  false,  the  imperative  following  the 
ELSE  clause  Is  performed,  if  present.  */ 

If  (condO)  t 

save  3 token!  ) i 
If  (save  T*  NEXT) 
keyvd! ) s 

e lse 

next  1 Ine  t 

) 

e lse 

whl le<  < < save  3 token! ) > I3  ELSE)  I I ( save  t3  EOL) ) : 

If  ( save  33  ELSE)  C 
save  3 token!  ) : 
keyed!  > , 

J 

re  tarn: 

} /*  end  !fs  */ 

MOVE  */ 

leave!)  f /*  This  routine  move«  the  value  In  the  first  Identi- 
fier or  liters!  Into  the  ,«<■<-.. nd  Identifier.  */ 

Int  1 : 

save  * token! ) : 
load! x> : 

If  ! token'  ' !*  TO)  1 

orrmec«  "TO  EXPECTED  AFTER  IDFNTIFiFi’  IN  MOVE  STATEMENT  •: 
e »•  r f I x 3 ON  t 

1 

save  r token!  ) I 

spfr  * e.n  o « 16  ♦ has* : 


ifli 


fop  t 1»«!  i < I6«  t«-M 

abaft  11  * memt aptr+*’ ; 

rind( ) ; 

rtl«*il<  1 1 /*  storr  value  from  yb  Into  data  division  t/ 

ne  x 1 1 1 ne  t > ; 
re  t urn : 

J '*  end  move  */ 

' /*  NAME 

um()  t /*  This  routine  hand  tea  the  proinulne  of  paragraph  and 
section  names.  *' 
if  tap  F*  -1)  t 

'■*  then  processing  wirhin  PERFORM  statement  */ 
if  ((esttspj  33  sa ve > i 1 t ex t [ spl  33  1>>  ( 

Iffcntrtspl  3 - 0)  C 
exttsp)  * 0i 

pc  * rtntspl;  /'*  set  po  to  lns*r  after  PF.RFf,rVtt 
sp — t 

next  1 l not  I ; 

) 

e lse  C 

If  tcntrtspl  ?3  MAX)  t 

cntrtspJ  = cntrtspl  - t: 

/*  perform  proc  a * of  times  */ 

pc  * begproc ; 
whl let toh»nt ) F=  psave) 
ne  x t I I ne  < > i 
next  I I net  > : 

) 

else  ( ■*  UNTIL  condition  must  be  evaluated  */ 

If  t eondt ' ' ( 

pc  3 r ; nt  sp] ! 
s p — .• 

next  I Inet ) : 

) 

e lse  ( 

pc  3 Segproc: 

while  i Indent ) !3  psave) 

next  1 1 net ) t 
next  1 i net  t i 

) 


next  I Inet ) l 
re  tarn i 

) /*  end  name  *s 

opent  ) ( 

next  1 Inet l : 
re  farm 

) /•*  end  open  */ 


performt ) 


Int  1; 

I ■ 0i 

rtnr++ep]  = pc  s * save 

cntrtspl  * Ws 

extfspl  3 I:  •'*  default 

psave  * fokc-i(>» 

If  t(  save  3 token!))  1*  JV* 
If  t save  «e  THRU)  r 
ext’spl  * t o ke  n < • t 
save  3 token*  > i 

) 

If  (sav»  j>  UNTIL  1 


/*  PERFORM  */ 

/*  This  r-r.tlne  causes  program  flow  to  jump  to  a 
particular  procedure  and  return  to  th»  state- 
ment following  the  perform  statement.  '•/ 


save  rurrent  program  counter  */' 

’*  default  value— -exit  implied  at  next  proc.-inme  s/' 


cntrtspl  * MAX: 
f iiidptr  * pc  : 

) 

If  (save  !*  EOL)  C 

load ( x) : 

cntrtspl  * xbtOI  - ’0’: 

If  ( y2  * = 2) 

cntrlsp]  = (cntrtspl  * 10)  ♦ (xbCll  - '0'): 

! f ( y2  > 2)  C 

erraagt  "PROCEDURE  CANNOT  BE  EXECUTED  > 100  TIME?")  t 
errf Is  = ON : 

) 

if  ( token!  ) » = TIMES)  C 

errmsg(  "TIMES  EXPECTED  IN  THIS  PERFORM  STATEMENT") ; 
errf Is  s ON: 

) 


if  (save  = 3 EOL)  ( 

pc  * b»gproc  i />f-  search  for  proc  to  be  performed  *■/ 

while  ( token! ) 1=  psave  i 

ne  x 1 1 1 ne  < > ; 
nextllnel); 

I 

re  turn: 

/*  end  perform  *s 

/•*  ERRMSG  ■*/ 

ermglerr)  /*  This  rontlne  prints  an  error  messase  corresponding 

to  errnum  which  Is  set  at  the  time  the  error 
occurred.  */ 


otoir  *err:  C 
Int  I : 

prlntf( 'ERROR  OCCURRED  AT  LINE  ") 
for<  1 = 0:  i < 3: 1++) 
putcharlclnl II); 
prlntft"*  ^s  *",err*: 
re  turn: 

) end  errmag  */ 


/*  SIZE 

itzeO  ( /*  This  routine  returns  GREATER  If  *b  ) yb 

EQUAL  If  xb  = yb  and  LESS  1 f xb  < yb . */ 

Int  s Iz . I : 

If  (xl  > yl)  xl.  yl  contain  the  a of  significant  digits 

slz  = GREATER: 
e Ise  ( 

If  (xl  < yl) 

slz  3 LESS: 
else  ( 

1 = 0: 

whllo  Kxbtll  > yb C i J ) aa  <«•■*•  I < y2)): 

If  (l  =*  y2) 

s iz  3 GREATER: 
else  t 
1 » 0: 

while!  (xbtll  ==  ybtll)00(+-M  < y2)  ) : 
if  ( I 33  y2> 

a Iz  3 EQUAL: 

e Ise 

s Iz  - LESS: 


re  turn*  a Iz) : 

'*  «nd  s lz»  * 


/*  rTUU- 


mri 


nibitfo  r 

If  < t2  33  0>  ( 

•dill*  i.t2  > 0)  C 

tempt  n — 1 3 xbt  — 1 : 

ct  nl  3 ' H*  ; 

3 

3 

e lse  t 

»»hl  1«  < y2  > 0)  f 

tempi  n — J 3 ykt 
Cr  nl  3 •«’: 

J 

3 

re  turn : 

7 / * end  f I I bnf  */ 


/*  COMPUTE 


computet  op)  /*  This  routine  adds  or  subtracts  2 values 

depending  on  the  par  a me  ->r  op.  */ 

Int  opt  ( 

int  a.b.ia.  I.dlft 

save  3 token' ) ; 

loadtx);  leads  first  operand  Info  buffer  xb  s*/" 

save  3 token*  ) : 

If  Cop  33  sub)  C 

If  (save  f3  FROM'  f 

errflg  3 OR: 

errmsgt  “FROM  RFOI’I  RED  HERE  IR  SUBTRACT  STATEMERT " ' : 

) 

3 

e lse  ( 

If  ( a a v»  ! 3 TO ) f 
errflg  3 OR; 

errmsgt "TO  REQtJI  JU-.r*  HERE  IR  ADO  STATEMERT"); 

3 

3 


save  3 token'  > ; 
load!  y' i 

If  (x3  y3)  ( 

If  (x3  > y3>  C 

d l f 3 x3  - y3 : 
for  (1*1;  I < 3 
ybt  y2+e 1 3 
y3  3 x3  s 
3 

e lae  ( 

dlf  3 y3  - x3; 
for  ( I3 1 i 1 < 3 
xbtx2+e1  3 
x3  3 >3: 

3 

3 


If  ( x2 

> 3 y2) 

m 

e lae 

3 x2; 

m 

n 3 mi 

« y2i 

ct  nl  3 

If  ( op 

33  sub)  r 

if 

<x„  ::  •♦*) 
xs  •*  * - * ; 

else 

xs  3 ’ ♦ ’ 1 

3 

,3  loads  second  operand  Into  buffer  yh  */ 

■'*  x3.  y3  conta'n  the  number  of  digits  to 

the  rlfiil  of  the  dec  1 mo  I point  */ 
/*  zero  fill  buffer  with  shortest 

mantissa  to  align  decimal  points  */' 

dlf;  1*+' 

O; 


dlf:  l**> 
0; 


* x2.  y2  contain  the  total  number 
of  digits  in  each  operand  - 


•s  to  subtr-.-t.  ehnnge  sign  of  the 
first  ope;--»-.|  and  add 


I f ( xs  3 3 ys  ) ( 

cf  nl  3 ‘0* ; 

Willie  I I y2  > 0)  .1.1  (*2  ' P>»  f 


b = ybt  — y21  - 'O’; 
tempt  n—1  * add  tab  1 1 a 1 t b 1 i 
ctnl  • add  tab2C  a 1 C b ! ; 

3 

f 1 lbuf( > t 
n * m: 

whi le  ( n > 0)  t 

a = tempt  nl  - ‘8’ : 
b = ctnl  - ’ 0 ’ ; 
ybtn— 1 * add  tab  1 C it : t b 1 t 
3 
3 

e lse  ( 

swl  tch<  i lze<  ) ) C 

case  EQUAL--  ■'*  zb  = yb  */ 

ys  * z a - ’ + ’ : 

ct01  = ’0’: 

y2  = Is 
y3  = 0; 
breaks 

case  GREATER:  •*  *b  > yj> 

ys  = X9 : 

wh 1 le  < y2  > 0>  t 

a * xbt — :t21  - •©' s 
b * ybt  — y21  - 'O'; 
tempt n--l  1 s ub t ab 1 1 a It b 1 : 
ctnl  1 sub  ; si  blit  a 1 1 b 1 : 

3 

f llbuft ) s 
breaks 

case  LESS:  ■'*  zb  < yb  */ 

xm  3 ys : 

whl  le  (x2  > O'  C 

a * xbt  — *21  - 'O’  s 
b * ybt— y2i  - O’  : 
tempt n — 1 - sub t ab 1 t b J t a ) : 

ctnl  = sub t ab2t b 1 t a 1 : 

3 

fl lbuft ) s 
breaks 

3 /*  end  switch  statement  *■’ 

n = ns: 

while  ( n > 0)  t 

a s tempt  nl  - ’ O’  : 

b * ctnl  - ' 0 ’ s 

ybt n — 1 * sub t ab U a : t b J : 

3 

3 

ybt  91  * ct©l i 
y2  * m: 
yl  ■ y2  - y3s 
re  load' ) : 
re  turn : 

3 •’*  end  add  */ 

/*  MULTIPLY 

mult  <)  ( /*  This  routine  multiplies  the  1st  operand  by  the  2nd  and 

stores  the  result  In  the  second  ••  per  end.  *y 

char  p.c I .c2.c3.e4j 
Int  a . b . 1 1 , t2. t.  ( . z2,  1 1 

•ave  * tokeni ' : 

loadt z) : 

1 f ( token'  > PY>  ( 
err  f I «■  * ON ; 


r 


«rrms«c<  *BV  REQUIRED  HERE  tv  ttTLTIPLT  STATEHERT")  t 

) 


save  = token*  ' i 

loadt  y)  : 

z 1 3 xl+y 1 ; 

•+ 

location  of  decimal  pt  In  ten.p 

*/ 

z2  « x2+y2: 

/% 

nnsa^ 

..-r  of  digits  In  product 

*/ 

t2  * z2i 

for  (a3«:  a<33;  >+♦! 

SX 

t 

•he  output  buff  to  zero 

%/ 

tempt  a I 3 ' •)'  i 

fort  yl3 

y2-  t : v 1 > * 

0:  yl — ) ( 

SX 

for 

each  digit  In  multiplier 

X/ 

c2  3 

4 3 ' « ’ : 

SX 

stM 

carry  to  are  1 1 zero 

X/ 

t 1 3 

;2i 

for* 

il3x2-  1 : 

xl>  3 

0:  zl — ' 

r 

i 

SX 

for 

»ach  digit  in  nralt  ip'i  ican*/ 

o 3 xM  1 1 1 

“ * 0 ' 

: b 3 vi. 

y J 1 — 

*0*  j 

p 3 mu  . tsM 

t a 1 

t bl  : 

/* 

product  of  2 digits 

X/ 

c 1 = mu l t ah2 

Cal 

t b)  ; 

/x 

cave  carry 

X/ 

a 3 p- ' 0 ' : 

b 3 

c2-  ' 0 ' ; 

p 3 add  tab  1 

t a] 

(bl  ; 

SX 

aid  previous  step  carry 

X/ 

r 2=  add tab2 

[a] 

t b)  : 

/ X 

save  carry 

X/ 

a 3 c 2-  ' 0 ’ 

: b 

= rl-'d'i 

c2=ndd  tab  1 

t aJ 

[ b]  : 

/ X 

add  carry  for  next  s*ep 

X/ 

a 3 tempt  1 1 I - ’ 

0 ' ; b 3 r 

• ;t  • 

; 

p 3add  tab  1 

to] 

tb!  : 

/X 

aid  re cult  to  output 

X/ 

cT=add  tab2 

( al 

t b.  : 

/X 

s a ve  carry 

X/ 

a 3 p- ’0' i 

b 3 

c4-  ' 0 ' . 

tempt  t 1 — 1 

3 add  tab  1 fnl 

tbl 

; 

/X 

add  previous  carry,  rave 

X/ 

c43 add  tab2 

ta] 

tbl: 

s z 

« a ve  - a r r y 

xs 

a 3 c4-'0’ 

i b 

= c3-  l»  - : 

) 

,2— 

1 

a 3 c2- 1 

c43  add t a b 1 

t a 1 

tbl; 

/X 

add  carry  for  next  s^ep 

X/ 

1 

/X 

.l-crencnt  temp  counter 

xs 

0 * : b 3 c4 

-•0‘ 

. 

tempt  III 

3 add  tab  t 

t a I 

[ bl  : 

/X 

carry  is  fISD  of  output 

xs 

y I 3 z 1 : 
y2  3 z2; 
y3  3 y2  - v 1 : 


for  M 30 : 

i < ~-  72:  1*+) 

ybl  U 

3 tempt  t ] ; 

If  (xs  »3 

ys> 

ys  3 

else 

ys  3 

' 4 . 

re  load  < ) : 

re  t urn i 

I /'•-  end  multiply 

/*  DIVIDE  *1/ 

divided  ( 

*Thls  routine  ns*«  t !»•»  ion-re?  torln?  technique  to  cnlmlnte 
the  quotient — xb  la  divided  Into  yb  and  the  quotient  if 
* tor»d  In  yb . */ 

I nt  a . j , 1 p.se . z I . z2: 
char  za : 


save  * tesendt  f-  loud  operand?  *■ 

loadt  x> i 

I f ( token'  • **  IRTD)  C 

err  f Ig  - I'D : 

err  me  z'  " I NT*’  REQUIRED  HER"  i‘)  DIVIDE  ST  \TEHFRT " ) t 

) 

nave  3 tokent  * : 
load  f y) : 

(i>  « 0;  • f '!  Ivj«  ion  step  count  */ 

dp  5 I ! * disri"  position  In  temp  */ 

1 | * xl~yl+l:  * digits  proceed  Ins: 


for  (,|*0:  Jt  32:  j + + > 
tempt  ,i  I 3 ‘ **'  : 


• •» rrp  to  Torn 


*/ 


■ 


!f  USD  Is  zero,  shift 


while  <xb'0I  ==  ’O’)  C /* 

for  lj’0:  j/x2;  J*+) 
xM  J 1 = xbl  J+  II  i 
If  (xl  •»  <»> 
x t — : 
x2 — : 

5 


while  (dp  = t2  f>8  « < 16)  t 

/*  while  the  nnmber  of  dibits  in  the  output  Is  less  than  In  the  */ 
/*  dividend  and  the  remainder  (xh)  ts  not  equal  to  zero  */ 


swl tch  is<i  C 


/*  switch  on  sign  of  r»m  In.*/ 


/*  if  the  remainder  is  positive  subtract  the  divisor  *■' 
v until  the  sign  ef  the  remainder  changes  */ 

sc  - ’ 0 ' - 1 1 

wh Lie  ( xs  = 3 1 f 

coniputef  sub)  ; 
sr  + + j 

) 

tempi dp++l  - sc;  /*  store  ASCII  value  in  tenir-  */ 

break; 


case  ' - ' : 

/*  If  the  r»ma  in<i-r  is  negative,  add  the  divisor  until  */ 
/*  the  sign  of  the  r»;:n  Inder  changes  */ 

sc  * ’9'+l; 
while  ( xs  = = ' - ' > ; 

c o mp  u t e ( a d d ’ : 
sc — : 

1 

tempi  dp+*l  = sc:  **  store  ASCII  value  in  temp*/ 


break; 

J /*  end  of  SWITCH  stmt  */ 

for  (j-13;  j>=0;  J — > /*  shift  divisor  to  right  */ 

yhC.|+ll  * ybtjj;  /*  for  next  cycle  */ 

yi  * r!;  <*  adjust  char  counisc?  */ 

/%  yj++  ???  */ 


) 


for  <a*0:  a<  16; 

if  (xbial  ?=  ’0’) 

break: 


/*  test  remainder  < xb > equal*/ 
to  zero 

-*  end  of  WHILE  stmt  */ 


If  ( xs  1 = ys ' /*  set  sign  of  result  */ 

ys  3 ’ - ' t 

e lse 

ys  * ' e * : 

y2  » dp  * 1;  /*  save  length  of  output  */ 

yt  - zl: 
y3  * y2  - y l : 
for(j*0;  j < y2;  J++) 
ybl  J J * tempi  J ) ; 
re lo*d(  ) : 
re  t urn  t 

) / * end  divide  */ 


/*  8IM!i  */ 


Mini)  ( 

/*  This  routine  reads  the  edi'or  ou*pUf  f j u Info  a char  array 
called  mem  In  memory;  1 n 1 t '•  a t i « vjr  i nb  ’ e vn  I ties  in  the  date 
division:  scans  the  proeedur  division  f Vn  by  token  (byte  oy 
byte)  for  grn  mms  t 1 c a I coree  l n“*  « and  • 'nl*«  each  comp  i o I «. 
statem'nt  as  it  encounters  it:  main  hn  ! - >it  nil  errors  except 

faulty  punctuation  or  wh<u  ,i  scans  < !te  fi'-.cit  tor  'stop'.  *- 


<i7 


r " 1 


Int  It 

prlutff "COBOL  INTERPRETER.  Version  1.0 
reid In! ) : 

1 f ! err  f Iff  ~~  OR) 

go  to  e ad ran  Int 

downline!);  find  last  EOL-- heff  of  symbol  rnb<»  */ 

base  - cp2  ♦ 5;  /*  act  base  to  l-yte  offset  of  sym  table  */ 

IfcCO)  = 'D't  /*  load  lb  with  1st  line  * of  proc  ■■  i v */ 

for  < 1*1;  1 < COMMENT-,  1 •*■*> 
lb[  I)  = 9’  ; 

while  (compere!)  f*  EQUAL*  /*  move  proc  div  into  high  -ore  *s 

do  wn  1 ine  ( ) ; 
pc  = p2 » 
nest  1 lne( ) i 

beffproc  = pc  | /*  pc  and  hepproc  now  sr  t to  1st  executable  stat  */ 

for  ( l*0i  1 <=  14i  1++) 

sbufCll  = RUL:  s*  zero  fill  the  search  buffer  :7 

Inltval!);  7*  initialize  Identifier  values  ;*/ 

while  ( ( (saw  * token!))  1 - STOP)  08  !<*rrflff  = = OFF))  ( 

/*  scan  until  token  for  stop  or  error  %/ 

swi  tcht  save)  C 

case  COMMERT  f /*  comment  */ 

ne  x 1 1 l ne  < ) ; 
break; 

case  ACCEPT  : /*  accept  statement  *S 

accept ( ) ; 
break; 

case  ADD  : /*  odd  statement  */ 

compute! add) ; 
break; 

case  CLOSE  : 
c lose!  ) : 
break; 

case  DISPLAY  : 
d Isplay! ) t 
break; 

ease  DIVIDE  : 
divide! ) ; 
break; 

case  CO  : /*  goto  stnternent  *7 

goi  ) ; 
break; 

case  IF  : '*  If  statement  */ 

1 fs(  ) t 
break; 

case  MOVE  : 7*  move  statement  */ 

mo  ve ( ) ; 
break; 

case  MULTIPLY  '•  '*  multiply  statement  *7 

mu  lt(); 
break; 

case  OPER  : 7*  open  statement  */ 

open! ) ; 
break; 

case  PERFORM  : s*  perform  statement  *■' 

perform!  ) : 
break; 


/*  close  statement  *■/ 


/*  display  statement  */ 


/*  divide  statement  *s 


ion 


case  READ  ; 
r-ad!  ) ; 


■'*  r-al  statement  */ 


c»»f  WRITE  s /*  wrlt»  statement  */ 

write!); 
break; 


detault:  y*  label  proc  npw.sectlon  name  or  “-rror  */ 

name ( ) t 

) /*  end  switch  statement  */ 

} 

end main: 

wr I teont ( ) ; 

} end  main — return  to  monitor  */ 
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